TITLE OF THE INVENTION 

VIDEO POKER GAME WITH A BET DOUBLING OPTION 

BACKGROUND OF THE INVENTION 

Field of the Invention: 
[01] The pesen. tovemion is di^C^ to a M device, and compu« readable 
^ medium fo. impiemenUng a video poker game «hieh p»vides a player aa 
abUity to increase an initial bet, donble. or place an additional bet. 



Description of the Related Art: 

[02] Video poker is a popular gambling gan^foand in casinos. 

[03] Whatisneededisanewvarietyofthegamctbatcanbemoreprofitableforthe 
easino.asweUasinafom.tba,s„.neplayersmaypreferoverthes.andardgame. 



SUMMARY OF THE INVENTION 



[04, Itisanaspectofthepresentinvenaontoprovideimprovementsandinnovations 
in videopoker games, v^ichinereaseplayercnjoymentandcasino profitability. 



[05] The above aspects can be obtained by a method that includes (a) receiving an 
initial bet; (b) dealing a first hand of cards to a player; (c) allowing the player to select 
any number of cards to discard; (d) offering an option for the player to make a second 
bet; (e) replacing the selected canis to form a final hand; (f) determining a rank of the 
final hand; (g) paying the initial bet according to the rank; and (h) paying the second bet 
according to the rank, if the player chose to make the second bet. 
[06] The above aspects can also be obtained by a method that includes (a) calculating 

probabUities for being dealt each rank of a plurality of ranks; and (b) dividing the 
calculated probabilities byanumberofpossible paying ranks to obtain payouts for each 

rank. 

The above aspects can also be obtained by a method that includes (a) automatically 
calculating probabiUties for an occurrence of each of a series of events; and (b) 
automatically dividing the calculated probabilities by a number of events with greater 
than 0 probability to obtam payouts for each respective event. 

[07] The above aspects can also be obtained by a method that mcludes (a) 
implementing a video poker game, with the additional feature of allowing a player to 
place an additional bet after being dealt the initial cards; and (b) paying the additional bet 
based on a computed paytable based on the player's initial cards. 

[08] The above aspects can also be obtained by a computer readable storage that 
performs (a) hnplementing a video poker game, with the additional feature of allowing a 
player to place an additional bet after being dealt the initial cards; and (b) paying the 
additional bet based on a computed paytable based on the player's initial cards. 
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[09] The above aspects can also be obtained by a system that includes (a) a processing 
unit implementing a video poker game, with the additional feature of allowing a player to 
place an additional bet after being dealt the initial cards; and (b) a paying unit paying the 
additional bet based on a computed paytable based on the player's initial cards. 

[10] These together with other aspects and advantages which will be 
subsequenUy apparent, reside in the details of construction and operation as more M\y 
hereinafter described and claimed, reference being had to the accompanying drawings 
forming a part hereof, wherein like numerals refer to like parts throughout. 



BRIEF DESCRIPTION OF THE DRAWINGS 

[1 1] Further features and advantages of the present invention, as well as the structure 
and operation of various embodiments of the present invention, will become apparent and 
more readily appreciated from the following description of the preferred embodiments, 
taken m conjunction with the accompanying drawings of which: 

[12] Figure 1 is a flowchart Ulustrating a basic method of the present invention, 
according to an embodiment of the present invention; 

[13] Figure 2 is a screenshot illustrating a first phase of the invention, according to an 
embodiment of the present invention; 

[14] Figure 3 is a screenshot illustrating the dynamic paytable, according to an 
embodiment of the present invention; 
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[15] Figure 4 is a screenshot illustrating a final phase of the invention, according to an 
embodiment of the present invention; 

[16] Figure 5 is a flowchart illustrating a method for computing the dynamic paytable, 
according to an embodiment of the present invention; and 

[17] Figure 6 is a block diagram illustrating one example of hardware that can be used 
to implement the present invention, according to an embodiment of the present invention. 



DESCRIPTION OF THE PREFERRED EMBODIMENTS 

[18] Reference will now be made in detail to the presently preferred embodiments of 
the invention, examples of which are illustrated in the accompanying drawings, wherein 
like reference numerals refer to like elements throughout. 

[19] The present invention relates to video poker games and improvements thereof. 
The present invention provides for a video poker game that allows the player to double 
(or just increase) his or her bet. 

[20] The most common form of video poker found in casinos operates as follows. A 
player pays to play the game. Five cards are then dealt. The player can then choose to 
discard any number of the five cards, which are then replaced to form a final hand. A 
rank of the final hand is determined, and is paid according to a paytable. 

[21] To add excitement to the game, the present invention affords the player an option 
to adjust his bet after the initial cards have been dealt Of course, some type of alteration 
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of the game is needed to accommodate this player advantage without the player gaining 
an advantage over the casino. 

[22] In the preferred embodiment of the present invention, the game can be played as 
the standard game described above. A "double your bet" button is also active after the 
initial deal and allows the player to optionally double (or just increase) the player's bet 
after the initial cards have been dealt 

[23] Two paytables can be used. A first paytable is a standard paytable used to pay out 
the original bet. A second paytable is displayed which automatically adjusts payouts 
unmediately based on cards the player wishes to hold and discard. The payouts are 
calculated so that the house has an advantage of the house's choosing. If the player 
chooses the double, then the player's original bet can be paid according to the fust 
paytable and the additional portion of the bet can be paid according to the second 
paytable. 

[24] Figure 1 is a flowchart illustrating a basic method of the present inventiori, 
accordmg to an embodiment of the present invention. 

[25] The game typically begins witii operation 100, where a video poker machine or 
electronic gaming device (EGD) receives the player's initial bet. 

[26] After tiie bet is received in operation 1 00, tiie metiiod proceeds to operation 102 
vMch deals five cards to tiie player. Of course, otiier amounts of cards can be used as 
well, but the standard amount is five. 
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[27] After the cards are dealt in operation 102, the method proceeds to operation 104 
wherein the player selects which cards he or she wishes to discard. This can be done by 
pointing to the cards on the screen, pressing buttons, etc. 

[28] From operation 104, the method proceeds to operation 106 which updates a 
dynamic paytable based on which cards the player selected to discard (or hold) in 
operation 104. The dynamic paytable is calculated so typically the house will always 
have a little advantage regardless of which cards the player chooses to hold. More on this 
calculation will be discussed below. 

[29] From operation 106, the method proceeds to operation 108 which offers a 
doubling option. The doubling option can be offered by way of a doubling button. The 
player can choose to press the button and double his or her bet, or just press a standard 
"draw" button to proceed without doubling. 

[30] From operation 108, the method proceeds to operation 1 10, which then deals 
replacement cards for the cards which were selected to be discarded to form a final hand. 

[3 1] From operation 1 10, the method proceeds to operation 1 12, which accounts for 
the bets. This is done by determining the rank of the final hand, and paying the initial bet 
based on a standard paytable. If the player chose to double, then the doubled portion of 
the bet is paid based on the dynamic paytable. 

[32] Figure 2 is a screenshot illustrating a first phase of the invention, according to an 
embodiment of the present invention. 



6 



[33] The first phase as indicated in Figure 2 corresponds to operation 102 fi-om Figure 
1 . A player has already placed his or her bet of five coins. 

[34] A rank list 200 displays winning hand ranks. Paytable 1 202 displays award 
amounts for the initial bet, for each respective rank fi-om the rank list 200. Paytable 2 
204 displays award amounts for an additional bet. 

[35] A first coin in display 206 indicates how many coins were bet. A second coin in 
display 208 also displays how many coins were bet. A balance display 210 displays the 
player's total balance (how much money he has). A return display 212 displays the 
computed return for paytable 2 204. It is preferred that the return display 212 not be used 
in an actual public game, as it may distract players. 

[36] A fiirst hand 214 is displayed which is the hand where the player's goal is to make 
one of the winning hand ranks in the rank list 200. A bet 1 button 216 allows the player 
to bet 1 coin, and a bet 5 button 218 allows the player to quickly bet 5 coins. The bet 1 
button 216 and the bet 5 button 218 are typically not active after the player has already 
placed his bet. A deal/draw button 220 both allows the player to deal the initial cards 
after indicating how many coins to bet, and then draw cards after the player has selected 
the discards. In this phase of the game, the deal/draw button 220 serves the latter 
operation. A double and draw button 222 allows the player to double the player's bet and 
then draw cards. At this phase in the game, the deal/draw button 220 and the double and 
draw button 222 are both active, and the player can choose whether to just draw new 
cards or double his or her bet and draw new cards. 
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[37] Paytable 2 204 can also be considered a "dynamic paytable," because it 
immediately updates the listed payouts based on certain conditions. In this case, when 
particular cards are selected to be held, the paytable 2 automatically updates the payouts 
to reflect odds for forming each respective rank. In Figure 2, none of the cards are 
selected to be held, so paytable 2 204 reflects payouts for discarding and redrawing all 5 
cards. 

[38] Figure 3 is a screenshot illustrating the dynamic paytable, according to an 
embodiment of the present invention. 

[39] Figure 3 corresponds to operations 104 and 106 from Figure I, and follows Figure 
2. The difference in play from Figure 2 and Figure 3, is the player has selected to hold a 
queen of clubs 302 and an ace of diamonds 304. 

[40] Note that paytable 2 300 has changed from its form from Figure 2 (item 204). 
This is because these new payouts reflect that the player has decided to hold the queen of 
clubs 302 and the ace of diamonds 304. 

[41] Note that certain payouts are not active in paytable 2 300. For example, royal 
flush, straight flush, and flush all pay an amount of zero. This is because these hands are 
impossible to make considering the cards being held. The player can experiment by 
selecting different cards to hold and viewing the updated paytable 2 300. 

[42] Figure 4 is a screenshot illustrating a fmal phase of the invention, according to an 
embodiment of the present mvention. 
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[43] Figure 4 corresponds to operation 108 from Figure 1, and is the result of pressing 
the double and draw button (item 222 from Figure 2) from the state displayed in Figure 3. 
Since the player doubled his or her initial bet of 5, the new amount of coins bet is 10, 
which is displayed in the coin bet display 408. 

[44] The cards that were not selected to be held are replaced by newly dealt cards to 
form a second hand 400. Note that the second hand 400 includes a pair of queens, but no 
other winning combinations, thus this hand is considered to be a "jacks or better" rank. 

[45] A rank highlight 402 highlights a winning rank and wining payouts in one or both 
of paytable 1 404 and paytable 2 406. Paytable 1 404 indicates a winning amount of 5 
for the rank of jacks or better. Paytable 2 406 also indicates a winning amount of 5 for 
the rank of jacks or better. Since the player chose to double his or her bet, the player 
receives payouts from both paytable 1 404 and paytable 2 406. 

[46] Thus, the player wins the sum of the two payouts which is $ 1 0, which is displayed 
in the win display 410. Thebalancedisplay 412 reflects the win of $10. Since the player 
wagered $10 and won $10, the player has broke even on this transaction and can now 
start a new game. 

[47] The additional wager is not lunited to double of the original bet, but can also 
comprise any amount of coins (or any fraction) bet the player wishes. Of course, the 
payouts on the additional bet are based on the number of respective coins bet. 

[48] Figure 5 is a flowchart illustrating a method for computing the dynamic paytable, 
according to an embodiment of the present invention. 
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[49] The method starts with operation 500, which calculates distributions for each 
rank. This can be done using a "formulaic" approach. Based on the cards that are 
selected by the player, and cards remainmg in the deck, the number of possible hand of 
each rank can be determined by counting the number of ways to make each particular 
rank. 

[50] For example, consider a player playing Jacks or Better at the 25 cent coinage level 
and plays 5 coins. The player is dealt the following cards: 2 of hearts, 4 of spades, 8 of 
hearts, 9 of clubs, queen of spades. The player decides to hold just the queen of spades. 
The following is how the number of ways to make each rank can be tabulated 
formulaically. 

[51] Royal flush: The 10, jack, king, and aces of spades are all still in the deck, 
therefore there is 1 royal flush combmation. 

[52] Straight flush: The possible spans for a straight flush are 8 to queen and 9 to king. 
All necessary cards are still in the deck, therefore number of combinations is 2. 

[53] Four of a kmd: For the ranks 3, 5, 6, 7, 10, jack, king, and ace all four cards are 
still in the deck, therefore there is one combination each for a total of 8. All three other 
queens are also still in the deck and the player can still get any of the 44 kickers with the 
three queens. So the number of four of a kinds is 8 + 44 = 52. 

[54] Full house: The queen can be either part ofthe three of a kind or pair. If the 
queen is part of the three of a kind then there are 3 ways to pick 2 queens from the 
remaining 3. There are 12 ranks left for the pair. 8 of them have all four cards left and 4 
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have just three left. Of the ranks with all four cards left there are 6 ways to choose 2 
cards out of 4. Of the 4 ranks with 3 left there are 3 ways to choose 2 cards out of 3. So 
the total number of fiill houses, queens up, is 3*(8*6 + 4*3) = 180. For the number of 
full houses where the queen is part of the pair there are 3 ways to choose one more queen 
out of the three left. Of the other 12 ranks there are 4 ways to choose 3 out of 4 cards for 
the 8 ranks with all four cards remaining. Of the other 4 ranks with 3 cards left there is 
only 1 way to pick 3 out of 3 cards. So the number of fiill houses where the queen is the 
pairis3*(8*4 + 4*l)= 108. So the total number offiill houses is 180+108 = 288. 

[55] Flush: Spades are the only possible suit for the flush. The player discarded the 8 
of spades so there are 1 1 spades left in the deck. There are 330 ways to pick 4 spades out 
of 1 1 to complete the flush. However 3 of those wiU result in a straight flush or royal 
flush. So the number of flush combinations is 330 - 3 = 327. 

[56] Straight: There are three possible spans for a straight: 8 to queen, 9 to king, and 
10 to ace. The player akeady discarded an 8 and 9, which will cut down the number of 
straight combinations. Let n8 = number of8's left in deck, and so on for each rank. The 
number of possible straights can be expressed as: n8*n9*nlO*nJ + n9*nlO*nJ*nK + 
nlO+nJ+nK+nA = 3*3*4*4 + 3*4*4*4 + 4*4*4*4 = 592. However 3 of these 
combinations result in a straight flush or royal flush. So the final number of straight 
combinations is 592 - 3 = 589. 

[57] Three of a kind: There are two types ofthreeofa kind in this situation: (1) queen 
is in the three of a kind, (2) queen is a singleton. To determine the number of type (1) 
three of a kind there are 3 ways to pick 2 out of the three queens left in the deck. There 
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a„eIso44non.,u«..eftina.edec^Tl.e number of ways .op>ck2ca«iso».of44.s 
44.43/2 = 946. However we k«owfton,*.Mbo»sesec«onfta.8-6.4.3*».60 of 

^ eombin^ion. resul, in a pair. So U,e. are 3.(946-60) - 2658 ways «, form a 
0)*ree„faki™..F»*.W.(2)Ml-onses*erea.e.2raricsleftfor.he*reeota 

kind, and 11 f«, Are oAer single«.n. The program would circulate *ro>,gh .11 132 
^binadons of U,reeofakindandsingleU».ranks.4.3-12will resul. inbo^ranks 
kavingonlyftreecardslcft. in wbich case U^re will bel.3--3ways.ocomple«««.hree 
of.Wnd. 8-4=32 ways willresul.inflK3ofakindcomingftomarank with alHcards 

left »i.hesi«g.e»nftomaranlcwiU.3.The„*ere were will be 4.3 = 12 waysu, 
comple^d-eftreeofakind. 4.8=32 wayswiUresultind^toeofakindcomingftom 
arank wittrSeards left a„dU«single«,nfron.arankwith4cards left Tl»rearel.4 = 4 
»ys.„con.pl«e*e*ree«fakind 8.7=56 ways wiUresultinbodrdre^reeofalcind 

^ single^n con^g ftom rants wiU. all four cards left. There will be 4.4=16 ways 
,„ complex eachftree of akind. So ^ number of type (2) teee of a kinds is (.2.3 
+ 32.12 + 32.4 + 56.16) = 1444. The number of three of akinds is 2658 + 1444 = 



4102. 



[58] Twopdr. Tteearetwotypesoftwopairs: (,) queen is par, of a pair. (2) queen 
is the singleton. Of d« type (1) two pairs the. are 3 possible ra^ ^ ^ other que«. 
There are 8.7=56 waystteother pair and singl^oncanbothcome from ranks with4 

«^,eft,foratotalof6.4=24combinatio„seach.The.eare 8.4=32 waysthethreeofa 
kiMcancomeftomarankof4and.he singleton 6omarankof3.foratotalof6.3=18 
each Thereare4.8=32ways.he.h«eof akindcancomeftom.rari.of 3 andthe 
si„gle.oniromarankof4,tor.«,tdof3.4=12con.binatio„seach. There are4.3=12 
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ways both the other pair and the singleton can come from ranks with 3 left each, for a 
total of 3*3=9 combinations each. So the total number of type (1) two pairs is 3*(56*24 
+ 32* 1 8 + 32* 12 + 12*9) = 7236. Of the type (2) two pairs there are 8*7/2=28 ways 
both pairs can come from ranks 4, and there are 6*6 ways to pick the suits from each set. 
There are 8*4=32 ways to pick one pair from a rank of 4 and one from a rank of 3, and 
there are 6*3=1 8 ways to pick the suits from each set. There are 4*3/2=6 ways to pick 
both pairs from ranks of 3, and there are 3*3=9 ways to pick the suits from each set. So 
the total number of type (2) two pairs is (28*36 + 32* 18 + 6*9) = 1638. The total 
number of two pairs is therefore 7236 + 1638 = 8874. 

[59] Pair: There are two types of pairs: (1) pair of queens, (2) pair of another high 
card. For the type (1) pairs the program picks one of 3 suits for the other queen and then 
will cycle through all 12*11*10/6 = 220 ways to pick 3 ranks out of 12 for the smgletons. 
8*7*6/6=56 of those ways will result in all 3 singletons coming from ranks of 4, for 
4^3=64 ways to pick the suits each. (8*7/2)*4=l 12 of those ways will resuh in 2 
singletons commg from ranks of 4 and one from a rank of 3, for 4-2*3=48 ways to pick 
the suits each. 8*(4*3/2)=48 of those ways will result in 1 singleton coming from a rank 
of 4 and two from a rank of 3, for 4*3^2=36 ways to pick the suits. 4*3*2/6=4 ways 
result from all three singletons coming from ranks of 3 , or 3-3=27 ways to pick the suits. 
So the number of type (1) pairs is 3*(56*64 + 1 12*48 + 48*36 + 4*27) = 32388 
combinations of type (1) pairs. For the type (2) pairs there are 3 ranks to choose from for 
the other pair. All three ranks have all four cards left so each has 4*3/2=6 ways to 
arrange the suits. Thereare 11*10/2=55 ways to pick the ranks of the other two 
singletons. 7*6/2=21 ways result in both singletons from ranks of 4, for 4-2=16 ways to 
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pick the suits. 7*4=28 ways result in one singleton from a rank of 4 and one from a rank 
of 3, for 4*3=12 ways to pick the suits. 4*3/2=6 ways result in both singletons from 
ranks of 3, for 3^2=9 ways to pick the suits. So the number of type (2) pairs is 
3*6*(21*16 + 28*12 + 6*9) = 13068. The total number of pairs is 32388+13068 = 
45456. 

[60] Non-paying hand: There are 47*46*45*44/24 = 178365 ways to pick 4 
replacement cards out of 47 left in the deck. The total number of paying combinations is 
59691, adding up the totals for each type of hand. 178365 - 59691 = 1 18674 ways to 
have a non-paying hand. 

[61] The above method can be implemented when the player holds 0, 1, 2, 3, or 4 
cards. Altematively, a "cycling" method can also be used which deals every possible 
card combination from the deck and tabulates how many possible ranks can be made. 
This can be considered a "slow" approach, and is recommended when the player decides 
to hold 4 cards, thus there are only 47 remaining cards to cycle through and tabulate. 

[62] Once the number of possible ways to make each rank is determmed based on the 
cards selected, the method then proceeds to operation 502 which computes a paytable 
based on the distribution probabilities. 

[63] The probability of making each rank can be easily computed by dividing by the 
number of possible ways to make a rank (computed in operation 500) by the number of 
possible hands that can be made for the given number of discards. Table I illustrates the 
number of cards held and how many possible hands can be made. 
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Table I 
# cards held 



# hand combinations 



0 1,533,939 

1 178,365 

2 16,215 

3 1,081 

4 47 

5 1 



[64] The probability of obtaining a certain rank can be determined by dividing the 
number of ways to make that rank by the number of possible hands (from Table I). Using 
the above example where the player is dealt: : 2 of hearts, 4 of spades, 8 of hearts, 9 of 
clubs, and the queen of spades, and the player decides to hold the queen of spades (which 
means 4 discards), the following probability table can be computed: 

Table II 



Rank 


# wavs to make 


probabilitv 


1 /probabilitv 


Royal Flush 


1 


.0000056 


178,571 


Straight Flush 


2 


.0000112 


89,286 


4 of a Kind 


52 


.0002915 


3,431 


Full House 


288 


.000183 


545 


Flush 


327 


.0016 


63 


Straight 


589 


.0033 


303 


3 of a Kind 


4,102 


.023 


43 


2 Pair 


8,874 


.0498 


20 


Jacks or Better 


45,456 


.2548 


3.9 
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[65] In Table II, the 1/probability represents a payout for that particular rank, but only 
if that rank was the only active payout. If a probability for a particular rank is 0, then the 
payout for that particular rank would be 0 (instead of dividing by 0). Since there are 
numerous active payouts (9 in Table 11), the payouts need to acconunodate the others so 
that overall the paytable does not return more than 100%. To reduce the paytable, the 
(l/probability) entries can be divided by the number of active paying hands. 

[66] For example, in Figure 2 there are 9 active payouts (if a payout is 0 it is not 
active). So each (1 /probability) column can be divided by 9 to result in viable payouts for 
a game. Table III illustrates the (1/probabiUty) column in Table II divided by 9. 



Table III 






Rank 


1/probabilitv 


(l/probability)/9 


Royal Flush 


178,571 


19841 


Straight Flush 


89,286 


9920.667 


4 of a Kind 


3,431 


381.22 


Full House 


545 


60.55 


Flush 


63 


7 


Straight 


303 


33.667 


3 of a Kind 


43 


4.778 


2 Pair 


20 


2.222 


Jacks or Better 


3.9 


.433 



[67] me (l/pr«bability)/9 column in Table III represents tiie payout for each rank for 1 
coin bet. Tins number should be multiplied by the number of coins bet. Further, the 
payouts inTable III represent no house advantage(due to rounding tiioughtiiere might be 

a slight house advantage/disadvantage). Typically, a casmo would work in a house 
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advantage so they were guaranteed to make money from the game. Thus, the following 
formula can be used to obtain a final payout, considering the house advantage and the 
number of coins bet: 

[68] Payout=((coins*game retum)/probability of achieving hand)/ # of paying hands 

[69] The game return should preferably set to .99 (99%) so that the player would 
consider the doubling bet a good bet and make it frequently. However, the casino (or 
game manufacturer) is free to choose whatever game return they wish. Table IV 
represents the payouts for each rank, and is computed by multiplying Table HI by (coins 
* game return). 



Table IV 

Rank rrcoins*game retumVprobahilitv of achie ving handV # of paying hands 

Royal Flush 98212.95 

Straight Flush 49107.30 

4 of a Kind 1887.039 

Full House 299.72 

Flush 34.65 

Straight 166.65 

3 of a Kind 23.65 

2 Pair 11 

Jacks or Better 2.14 



[70] The paytable in Table IV is a mathematically proper paytable for the above 
described conditions. However, some adjustments can optionally be made to enhance 
player's gambling experience, and to also accommodate casino preferences. Players d 
not wish to lose their money too quickly. If players lose too quickly, they will be 
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discouraged and not continue playing or return. Thus, paytables can be shifted to be 
"bottom heavy » A bottom heavy paytable is one where (probability*payout) for ranks 
are higher towards the bottom of the paytable than the top. Payouts can be shifted from 
the higher paying hands (less likely) to the lower paying hands (more likely), while 
preserving the same overall return for the paytable. 

[71] Thus, from operation 502, the method proceeds to operation 504 which shifts 
payouts. 

[72] An algebraic formula can be derived to shift payouts while preserving the same 
overall return. Table V illustrates an example of a simple paytable. 

Table V 

Rank probability payout 

rankl a x 

rank2 b y 

ranks c z 

[73] Consider the paytable in Table V to have an even return (1) for simplicity. Now 
suppose that it is desired to reduce the payout for rankl by a "shrinking factor" of s, and 
preserve the same return by increasing rank 2 by a "growth factor" f. Table VI represents 
what such an adjust paytable would look like. 

Table VI 

Rank probability pavout 

rankl a s*x 

rank2 b f*y 

ranks c z 
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[74] If the paytable in Table V has an even return (1), then the following relationship 
can be stated: 

[75] a*x + b*y + c*z=l 

[76] The following relationship can be stated from the paytable m Table VI: 
[77] a*s*x + b*f*y + c*z=l 

[78] Using the above two equations and solvmg for f, we obtain: 
[79] f=(a*x-b*y-a*s*x)/(b*y) 

[80] -nius, if we want to shift 50% of the payout in rankl to rank 2, the payout for 
rank 1 can be multiplied by .50. and to compensate, the payout in rank 2 can be 
multiplied by f. 

[81] In this mamier, payouts from the higher paying hands can be transferred to the 
lower paying hands, to create a more bottom heavy paytable. The source hands, 
destination hands, and shrinking factor(s) can be set somewhat arbitrarily to suit the 
designer's preferences. 

[82] Optionally, certam dealt hands can be preset to shift payouts in a certain manner. 
For example, a player is commonly dealt a low pair. When the player is dealt a low pair, 
the method can automatically shift payouts in a predetermined mamier appropriate for the 
circumstances. For example, 60% of 4 of a kind and 25% of fiill house can be shifted to 
two pair and three of a kind, using the shifting methods described above. In this way, the 
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table is shifted to become more bottom heavy without losing the appeal of attractive 
payouts on the top. 

[83] Further adjustments may still be made to the paytable. In some cases, payouts 
may be too high. For example, a payout for a royal flush using the above formulas may 
exceed $100,000, even if a portion is shifted to a lower paying hand as discussed above. 
Even though casinos will profit from the game in the long run, a casino may be reluctant 
to offer such large payouts. Therefore, large payouts can be capped and a cap excess can 
be transferred to lower paying hands. 

[84] Thus, from operation 504, the method proceeds to operation 506 which caps 
selected payouts. High payouts can be optionally reduced to predetermined number(s). 
The loss in payout due to capping should ideally be shifted to another payout. 

[85] For example, if a royal flush pays $55,000 according to the above methods, and 
the casino or operator wishes to cap this payout at $20,000, then the shrinking factor 
would be as follows: 

[86] 8=20,000/ 55,000, or cap amount / current payout 

[87] Then, by using the formulas above, the excess amount over the cap can be 
transferred to another hand, preferably a bottom paymg hand. It is recommended that the 
royal flush be c^ped and straight flush be capped at a lower amount 

[88] The payouts generated by the above methods will typically contain a fractional 
part. All of the fractional parts for each payout can simply be removed (such as with an 
INTO or FLOORO fimction), but this wUl decrease accuracy. 
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[89] 7^. » improve accuracy. U.e m«h„d proceeds to oper«ion 508. »hich shifts 
fta.«„„a,parU.Apref^-*odisU>s.>iftattof*eftacUonalpar«o.eby one. until 

no more shifting caabedone upon wiuchU-eftacUonaip^tcanftenbe removed. F« 
exan.p.e.U.eme«»dcans«r,a.fte.o«es.pa,ingpa,ou. and shift me ftacionalpartu, 
tonexthighestpayout From to payou,*eftacUonai par. «m be shifted again .„*e , 
nexthighesrpayou, and soon, una only^ehighestpayourcon^msaftacUonal par.. 
A,*a.poin...heftacUonalpar.cansimplyberemov«i.Sinceftehighes,payou.isalso 
.ypWlyft«mos.unlikely,removinga<r«:tiona.par.ot*ehigbes.payou.«ouIdres^^ 

in Ae smaUes. error (deviation ftom Ae desired payou. remm). 

(90, to fte al«n«tive. ins.ead of shifting Ae irrational par. «, fl» .«x. highes. payou.. 
*e irrational pancanbc shifted*, Ae„ex.ra.k™U.d«nex..o»es.probabiU.y.and so 

on. H^shiftingofirrattonalpar^canbedoneusingftememodsdescribedabove. 

pi] Once.llof*eirrati™«lpar«areremoved.ti.epay«blecomputingmeflKHl 
proceeds.ooperation510»hichdisplays««pay.able.Tlreabovedescribedmeti.ods 

.esuH in generating a dynamic paytable insBnUneously. 

(„, Furtirer.i.isno.edti«abovede,cribedmett,odsforauU,maticallygenera,inga 
pay.ableareno.limi.ed.ogene,atingapay.ab.eforavideopokergame.bu.canalsobe 
appUed«,any„ti«rgame»ifta„y.««ofeven..Forexample.aslo.m.hinecanbe 
i„piemen«dwhichins«adofusingonlya<ixedpay.ab.e.cana..er.hepay.ablebasedon 

^ event probabiUties. As ye. anoti-er example, a dice game can also implemen. tire 
„ea.ods herein, wherein previ„usr„llsofti.edice(oroa.eroccv^ces)canal«r 
probabUitiesof achieving cer^inconditionsCfor example. roiling4identicalroilsina 



21 



any other girnies «ith occurring events as well. 

,3, App«*A«.„talnseodeusea.oin.ple«e„..^en.i«S=-andn,e.h<* 

aesoHl-eaabove. Uecc^ UwHt.cn in the ACTlONSCRIPrlan^,^ 
MACaOMED.^»«cltlsns^.opro.»,HashappUcaaons.TMslan.u.eisve. 

.>„^t„C(„tC^)an-caneasU,.«.vet.eat„C.an,ot.e,p.^n. 

™sooaeisl..u^«..--i..o.«e.^p.eof.ow..a.«n«.<. 

^..p.e.en.ea.aswellasasslstoneo.o.l«s.ll....a„-P™- 
.esert^ntethoas. 0.«ontse.n«n,o..e.ap^.escan.e..enasweU„n.an, 

Other different languages. 

. <^ « «f .rt " ««r1 "slow 4" are the routines that 
"foctn" "fflstl " "fast2, fasts, ano siow t « 
[94] The routines "fastO , tasti, i«i » 

...ententt.— . — - — "-'""^.^^^^ 

,a.,.stUasa.an.^..p.»--— — "^'77 
«.e,cUn.a^. The «»cUon "a.,^- «ts. oaUs the appto,.^ - ".low 

„ntine,and«,e„i.ple«.ent,opetaao.5<«.50Sm^Wi^Hand,he 

^oW^ Thefimction"showpays 
a^panyingdescripUon)toc<»npu.ethedynanncpay.able. Tl-eftm 

.ple^entsope^aonMOl— C-^P-— 

commettoi and implement the game logic 

,.no,edtha..hed,namic(o.seeond)pa.ah.ed„esno.have«,inol,^allof 

LLsine,»ledinthes^p..-nsedtopa,.eoHgh.wage,. Thed^c 
,^leean.s„eomp.seeon.tionso.e..an.a^-ca.— 
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such as other kinds of hands or other conditions. As only one example, such a condition 
can comprise a hand that makes up only red (or black) cards. Any such hand or condition 
can be bet on using the methods described herein. Such conditions can be mixed in any 
manner with paying hands from the original paytable. Thus, the present invention can 
provide flexibility in adding a secondary bet to the video poker game (or any other type 
of game). 

[96] It is further noted that any of the games described herein can be played with any 
kind of deck, either standard or nonstandard. Wildcards can also be used. 

[97] In a further embodiment of the present invention, instead of computing paytables 
on the fly as discussed above, paytables can be precomputed and stored. The paytables 
can be indexed based on a condition or conditions. When a paytable is desired, based on 
the condition(s) the proper paytable can be retrieved, displayed, and used. 

[98] In a further embodiment of the present invention, the dynamic paytable does not 
have to be used, but instead a single paytable can be used to pay both the initial and the 
second bet. This paytable would be modified to accommodate the player advantage of 
being able to double his bet so that the casino would still have an advantage. Such a 
paytable can be computed by guessing at such a table, then running through every 
possible hand with and without doubling, and taking the highest expectation of each. If 
the expectation is greater than 1, then the paytable payouts can be reduced. However, the 
method described above using the dynamic paytable is preferred. 
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[99] In a further embodiment of the present invention, the secondary bet can be 
mandatory and/or can be paid for by splitting up the initial bet. 

[100] In yet a further embodiment of the present invention, the additional bet can be 
applied to a multi line version of video poker. If additional hands are being dealt, 
multiple doubled bets can be collected and applied to the multi hands. For example, if 
three hands are being played at once on a multi line version, the player pays for 3 hands 
up front, and if he or she wishes to double then the player can pay for three (or any 
amount) more additional bets. 

[101] Figure 6 is a block diagram Ulustrating one example of hardware that can be used 
«> implement the present inversion, according to an embodiment of the present invention. 
Typically, an electronic gaming device <EGD) is used to implement the present mvention. 

[102] A processing unit 600 is com»ct«l to a ROM 602. RAM 604. and a storage unit 
606 such as a hard drive. CD-ROM. etc. TTie processing unit 600 is also connected to an 
input device(s) 608 such as a touch sensitive display, buttons, keyboard, mouse, etc. TTie 
processing unit 600 is also comrected to an output device(s) 610 such as a video display, 
audio output devices, etc. The processing unit 600 is also competed to a financial 
apparatus 612. which can accept payments and handle all fecets of financial transactions. 
The processing unit 600 is also co«nect«l to a communications link 614 which com,ec,s 
the gaming device to a casino network or other communications network. 
[103] It is also noted that any and/or all of the above embodiments, configurations, 
variations of the present invention described above can mixed and matched and used in 
any combinaUon with one another. Any claim herein can be combined with any others 
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(unless the results are nonsensical). Further, any mathematical formula given above also 
includes its mathematical equivalents, and also variations thereof such as multiplying any 
of the individual terms of a foraiula by a constant(s) or other variable. 

[ 1 04] Moreover, any description of a component or embodiment herein also includes 
hardware, software, and configurations which already exist in the prior art and may be 
necessary to the operation of such component(s) or embodiment(s). 

[1 05] The many features and advantages of the invention are apparent 
from the detailed specification and, thus, it is intended by the appended claims to cover 
all such features and advantages of the invention that fall within the true spirit and scope 
of the invention. Further, since numerous modifications and changes will readily occur 
to those skilled in the art, it is not desired to limit the invention to the exact 
construction and operation illustrated and described, and accordingly all suitable 
modifications and equivalents may be resorted to, falling within the scope of the 
invention. 



25 



APPENDIX A 
//this program is (c) and not to be used without permission 
function setinitialdeckQ 

indeck = new ArrayQ 
for (i=0; i<l4; i-H-) I 

^ indeck.push (new Array (4)); 

//udeck[13][suit] is all the remaining oards for that suit 
/ indeok[rank][4] is all the remmaing cards for that tank 
//ranks start at 2 and go through A, i.e. (Hank of 2, l=,ank of 3, . . . I2=A 

iSSk'l^jSi:!,- """" tadeck [4,t0)=,; 

i^k n im',;"^' '"""'^'^ M"'^ MtOM; i.deck [,0][OJ=I; 
indeck [12][0]=1; indeck [13][0]=13; 

in£kTif/f=/ f'"""^ i»1eck[2][IM; indeck [3)[IM; indeck [41[1M; 

''^"^-'^ Mt'M; mdeck [10][1]=,; 
indeck [12][1]=1; indeck [13][1]=13; 

l^k'|?Jt?r=/ ""''"^ '^'^ i"'^'' Wt2M; 

W IjS'il; ""''"^ '"'"^ mPM; indeck [9][21.|; indeck [I0][2]=.; 
indeck [12][2]=1; indeck [13][2]=13; 

iSllS-l; "'"'^'^ t'^ra"^ (9)[3M; indeck C.01[3M; 
indeck [12][3]=1; indeck [13][3]=13; 

'^^i^^^ "'^-^^ P]t4]=4; indeck t4][4]=4; 

i^k n iK"^' '"^^ Mm=*^ [•0][4]=4; 

indeck [12][4]=4; 
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} 



function fastOQ 
{ 

var ij,k,l,numcom; 

total[0]=0;total[l]=0;total[2]=0;total[3]=0;total[4]=0;total[5]=0;total[6]=0; 
total[7]=0;total[8]=0;total[9]=0;total[10]=0; total[l 1]=0; 

for (i=0; i<=7; 

fora=0;j<=3;j++) 

totaI[10]H-indeck[i]|j]*indeck[i+l]|j]*indeck[i+2]D]*indeck[i+3]G]*indeck[i+4][ 

j]; 

fora=0;j<=3;j++) 
{ 

total[10]+=mdeck[12]D]*indeck[0]D]*indeck[l]|j]*indeck[2]|j]*indeck[^ 
total[ll]+=indeck[8]|j]*indeck[9]D]*indeck[10][j]*indeck[ll]0]*indeck[12][j]; 



for (i=0; i<=8; 

totd[4]-H=indeck[12][4]*indeck[0][4]*indeck[l][4]*indeck[2][4]*indeck[3][4]; 

for (i=0; i<=3; 
{ 

if(indeck[13][i]=13) 

total[5]-f-1287; 
else if (mdeck[13][i]=12) 

total[5]+=792; 
else if(indeck[13][i]=ll) 

total[5]+=462; 
else if (indeck[13][i]=10) 

total[5]+=252; 
else if (indeck[13][i]==9) 

total[5]+=126; 
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else if (indeck[13][i]=8) 

total[5]+=56; 
elseif(indeck[13][i]=7) 

total[5]+=21; 
elseif(indeck[13][i]=6) 

total[5]+=6; 
elseif(indeck[13][i]=5) 

total[5]+=l; 

} 

total[4]-=(total[10]+total[l 1]); 
total[5]-=(total[10]+total[l 1]); 



if (indeck[12][4]=4) // four aces 
{ 

total[9]+=indeck[0][4]+indeck[l][4]+indeck[2][4]; 

total[9]+=indeck[3][4]+indeck[4][4]+indeck[5][4]+indeck[6][4]+indeck[7][4]+in 
deck[8][4]+indeck[9][4]+indeck[10][4]+indeck[ll][4]; 

if (indeck[0][4]=4) // four 2's 
{ 

total[8]+=indeck[12][4]+indeck[l][4]+indeck[2][4]; 

total[8]+-indeck[3][4]+indeck[4][4]+indeck[5][4]+indeck[6][4]+indeck[7][4]+in 
deck[8][4]+indeck[9][4]+indeck[10][4]+indeck[ll][4]; 

if (indeck[l][4]=4) // four 3's 
{ 

total[8]+=indeck[12][4]+indeck[0][4]+indeck[2][4]; 

total[8]+=indeck[3][4]+indeck[4][4]+indeck[5][4]+indeck[6][4]+indeck[7][4]+in 
deck[8][4]+indeck[9][4]+indeck[10][4]+indeck[ll][4]; 

if (indeck[2][4]=4) // four 4's 
{ 

total[8]+=indeck[12][4]+indeck[0][4]+indeck[l][4]; 

total[8]-H=indeck[3][4]+indeck[4][4]+indeck[5][4]+indeck[6][4]+indeck[7][41+in 
deck[8][4]+indeck[9][4]+indeck[10][4]+indeck[ll][4]; 

for(i=3;i<=ll;i-H-) 

if(indeck[i][4]=4) 
total[7]-H=43; 

/* full house */ 



28 



for(i=0; i<=ll;i-H-) 
{ 

for(j=i+l;j<=12;j-H-) 
{ 

if ((indeck[i] [4]=2)&&(indeckD][4]==3)) 
total[6]-H-; 

else if ((indeck[i][4]=3)&&(indeckU][4]=2)) 
total[6]+=l; 

else if ((indeck[i][4]=2)&&(indeckO][4]=4)) 
total[6]+=4; 

else if ((indeck[i][4]==4)&&(indeck|j][4]=2)) 

total[6]+=4; 
else if ((indeck[i][4]=3)&&(indeckD][4]=3)) 

total [6]+=6; 
else if ((indeck[i][4]=3)&&(indeck[j][4]=4)) 

total[6]+=18; /* 4c2+3*4 */ 
else if ((indeck[i][4]=4)&&(indeck[j][4]=3)) 

total[6]+=18; 
else if ((indeck[i][4]=4)&&(indeck[j][4]==4)) 

total[6]+=48; /* 2*(4*4c2) */ 

} 



/♦three of a kind*/ 
for(i=0; i<=12;i-H-) 
{ 

if(indeck[i][4]=4) 

total[3]+=3612; /* 4*43c2 */ 
else if (indeck[i][4]=3) 

total[3]+=946; /* 44c2 */ 

} 

tDtal[3]-=totaJ[6]; 

/* two pair */ 
for(i=0; i<=ll;i++) 
{ 

forO'=i+l;j<=12;j-H-) 
{ 

if ((indeck[i] [4]=-2)«fe&(indeckD][4]=2)) 
total[2]+=43; 

else if ((indeck[i][4]==2)&&(indeck[j][4]=3)) 

total[2]+=126; /* 3*42 */ 
else if ((indeck[i][4]=3)«&&(indeckO][4]=2)) 



29 



totaI[2]4=126; /* 3*42 */ 

else if ((indeck[i][4]=2)&&(mdecklj][4]=4)) 

total[2]-H=246; /* 6*41 */ 
else if ((indeck[i][4]=4)&&(indeckD][4]=2)) 

total[2]+=246; /* 6*41 */ 

else if ((indeck[i][4]=3)«&&(indeck[j][4]=3)) 
total[2]+=369; /* 3*3*41 */ 

else if ((indeck[i][4]=3)&&(indeck[j][4]=4)) 

total[2]+=720; /* 3*6*40 */ 
else if ((indeck[i][4]=4)&&(indeck[j][4]=3)) 

total[2]-H=720; /* 3 *6*40 */ 

else if ((indeck[i][4]=4)&&(indeck|j][4]=4)) 
total[2]+=1404; /* 6*6*39 */ 



/* pair */ 

for(i=9; i<=12; i-H-) 
{ 

if(indeck[i][4]=4) 

numcom=6; 
else if (indeck[i][4]=3) 

numcom=3; 
elseif(indeck[i][4]=2) 

nuincoin=l; 

if(indeck[i][4]>=2) 

for(j=0;j<=10;j-H-) 

for(k=j+l;k<=ll;k++) 

for(l=k+l;l<=12; 1++) 

if((i!=j)&&(i!=k)&&(i!=l)) 

total[l]-H=(numcom*indeckG][4]*indeck[k][4]*indeck[l][4]); 



total[0]=850668; 
for(i=l;i<=13;i-H-) 

total[0]-=total[i]; 
if(total[5]<0) 
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cerr « "total[5]=\t" « total[5] « "\n"; 

total[7]+=total[8]+total[9]; 

total[8]=total[10]; 

total[9]=total[ll]; 

total[10]=1533939; 



function fasti (r, s) 
{ 

var i j,k,l,numcom; 

total[0]=0;total[l]=0;total[2]=0;total[3]=0;total[4]=0;total[5]=0;totair61=0- 
total[7]=0;total[8]=0;total[9]=0; total[10]=0; total[l 1]=0; 

if(r>=4) 
if(r!=12) 

total[8]+=indeck[r-4][s]*indeck[r-3][s]*indeck[r-2][s]*indeck[r-l][s]; 

ciSC 

ifarS3)^d(S=n^^ 
if(r!=ll) 

total[8]+=indeck[r-3][s]*indeck[r-2][s]*indeck[r-l][s]*indeck[H-l][s]; 
else 

totd[9]^ndeck[rO][s]*indeck[r-2][s]*indeck[r-l]rs]*mdeckrH-lirsl- 
if((r>=2)and(r<-10)) 

if(r!=10) 

totd[8]-H=indeck[r-2][s]*indeck[r.l][s]*indeck[rfl][s]*indeck[r+-2][s]; 

eise 

total[9]=indeck[r-2] [s] *indeck[r-l ][s]*mdeck[r+l][sl*indeckri4-2irsl • 
if((r>=l)and(r<=9)) l jl j. 

if(r!=9) 

total[8]-H=indeck[r-l][s]*indeck[H-l][s]*indeck[rf2][s]*indeck[rf3][s]; 

else 

total[9]=indeck[r-l][s]*indeck[r+l][s]*indeck[i+2][s]*indeck[rf31[sl; 
if (r<=8) 

if(r!=8) 

total[8]4=indeck[r+l][s]*indeck[rf2][s]*indeck[H-3][s]*indeck[r+4][s]; 

else 

total[9]=indeck[r+l][s]*mdeck[r+2][s]*indeck[r+3][s]*indeck[r+-4][s]; 
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if(i=12) 

total[8]+=indeck[0][s]*indeck[l][s]*indeck[2][s]*indeckr3irsl: 
elseif(r=0) 

total[8]+=indeck[12][s]*indeck[l][s]*mdeck[2][s]*indeckr3]rsl: 
else if (r=l) ^ 

total[8]+=indeck[12][s]*indeck[0][s]*indeck[2][s]*indeckr3]rsl; 
elseif(r=2) 

total[8]+=indeck[12][s]*indeck[0][s]*mdeck[l][s]*indeckr3]rsl: 
else if (r=3) 

total[8]+=indeck[12][s]*indeck[0][s]*indeck[l][s]*indeck[2][s]; 

if(r>=4) 

total[4]+=indeck[r-4][4]*indeck[rO][4]*indeck[r-2]r4]*indeckrr-lir41- 
if((r>=3)and(r<=ll)) ""^ ^ 

total[4]+=indeck[r-3][4]*indeck[r-2][4]*indeck[r-l]r41*indeck[rflir41- 
if((r>=2)and(r<=10)) l JiJ. 

total[4]+^ndeck[r-2][4]*indeck[r-l][4]*indeck[rfl][4]*indeck[rf2ir41- 
if ((r>=l)and(r<-9)) 

total[4]H-=indeck[r-l][4]*indeck[iM-l][4]*indeck[iS-2][4]*indeckrr+3ir41- 
if(r<=9) 

total[4]H-=indeck[rH-l][4]*indeck[r+2][4]*indeck[H-3][4]*indeck[i+4][4]; 
if(r=12) 

total[4]+=indeck[0][4]*indeck[l][4]*indeck[2][4]*indeck[3]r4]; 
else if (r=0) 

total[4]+=indeck[12][4]*indeck[l][4]*indeck[2][4]*indeck[3][41; 
else if (r=l) 

total[4]+=indeck[12][4]*indeck[0][4]*indeck[2][4]*indeck[3ir4]; 
else if (r=2) 

total[4]+=indeck[12][4]*indeck[0][4]*indeck[l][4]*indeck[3][4]; 
else if (r=3) 

total[4]+=indeck[12][4]*indeck[0][4]*indeck[l][4]*indeck[2][4]; 
total[4]-=(total[8]+total[9]); 

if(indeck[13][s]=12) 
total[5]=495; 

else if (indeck[13][s]=l 1) 
total[5]=330; 

else if (indeck[13][s]=10) 

total[5]=210; 

else if (indeck[13][s]=9) 

total[5]=126; 

else if (indeck[13][s]=8) 

total[5]=70; 
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total[5]-=(total[8]+total[9]); 

/* four of a kind */ 

for(i=0;i<=12;i-H-) 

{ 

if ((i!=r)and(indeck[i][4]=4)) 
total[7]-H-; 

if ((i!=r)and(indeck[r][4]=3)) 

total[7]+=indeck[i][4]; 

} 

/* fiill house */ 
for(i=0; i<=12;i-H-) 
{ 

if(i!=r) 
{ 

if(indeck[r][4]=3) 

{ 

if(indeck[i][4]==4) 

total[6]+=30; 

else if(indeck[i][4]=3) 

total[6]+=12; 

else if (indeck[i][4]=2) 

total[6]+=3; 

} 

elseif(indeck[r][4]=2) 
{ 

if(indeck[i][4]==4) 

total[6]+=14; 

else if(indeck[i][4]=3) 

total[6]+=5; 

elseif(indeck[i][4]=2) 
total[6]-H-; 

} 

elseif(indeck[r][4]=l) 
{ 

if(indeck[i][4]=4) 
total[6]+=4; 

else if (indeck[i][4]=3) 
total[6]-H-; 

} 
} 
} 

/* three of a kind */ 



for (i=0; i<=ll; 
{ 

forO=i+l;j<=12;j++) 
{ 

if((i!=r)andO!=r)) 
{ 

if(indeck[i][4]=4) 
total[3]+=4*indeckO][4]; 
else if(indeck[i][4]=3) 
total[3]+=indeck|j][4]; 

if(indeck|j][4]=4) 
total[3]+=4*indeck[i] [4]; 
else if (indeck|j][4]=3) 
total[3]+=indeck[i][4]; 

if(indeck[r][4]=3) 

total[3]+=(3 *indeck[i] [4]*indeckD][4]); 
else if (indeck[r][4]=2) 
total[3]+=(indeck[i] [4] *indeckO][4]); 

} 
} 

/* two pair */ 
for(i=0;i<=ll;i-H-) 

{ 

fora=i+l;j<=12;j++) 
{ 

if((i!=r)and(j!=r)) 
{ 

if((indeck[i][4]=2)and(indeckO][4]=2)) 
total[2]-H-; 

total[2]4=(indeck[r][4]*4); 

} 

else if ((indeck[i][4]=2)and(indeckD][4]=3)) 

total[2]+=3; 

total[2]+=(indeck[r][4]*9); 
} 

else if ((indeck[i][4]=3)and(indeck|j][4]=2)) 
total[2]+=3; 

total[2]+=(indeck[r][4]*9); 
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} 

elseif((indeck[i][4]=2)and(indeckD][4]==4)) 
{ 

total[2]+=6; 

total[2]+=(indeck[r][4]*16); 
} 

elseif((indeck[i][4]=4)and(indeck[j][4]=2)) 
{ 

total[2]+=6; 

total[2]+=(indeck(r] [4] * 1 6); 
} 

else if ((indeck[i][4]=3)and(indeckU][4]=3)) 
{ 

total[2]+=9; 

total[2]+=(indeck[r][4]* 1 8); 
} 

else if((indeck[i][4]=3)and(indeck|j][4]=4)) 
{ 

total[2]+=18; 

total[2]+=(indeck[r][4]*30); 
} 

elseif((indeck[i][4]=4)and(indeckD][4]=3)) 

{ 

total[2]+=18; 

total[2]+=(indeck[r][4]*30); 

} 

elseif((indeck[i][4]=4)and(indeckD][4]=4)) 
{ 

total[2]+=36; 

total[2]+=(indeck[r][4]*48); 

} 

elseif((indeck[i][4]=l)and(indeck[j][4]=4)) 

total[2]+=(indeck[r] [4]*6); 

elseif((indeck[i][4]=l)and(indeck[j][4]=3)) 

total[2]+=(indeck[r][4]*3); 

else if((indeck[i][4]=l)and(indeckD][4]=2)) 

total[2]+=(indeck[r] [4]); 

else if((indeck[i][4]=4)and(indecklj][4]=l)) 

total[2]+=(indeck[r] [4] *6); 

else if((indeck[i][4]=3)and(indeck[j][4]=l)) 

total[2]+=(indeck[r][4]*3); 

else if ((indeck[i][4]=2)and(indeckD][4]=l )) 

total[2]+=(indeck[r] [4]); 

} 

} 

} 
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/* pair */ 

for(j=0;j<=10;j++) 
for(k=j+l;k<=ll;k-H-) 
for(l=k+l;l<=12;l++) 
if ((r!^)and(r!=k)and(r!=l)) 
{ 

if(r>=9) 

total[l]+=(indeck[r][4]*indeck[j][4]*indeck[k][4]*indeck[l][4]); 

ifO>=9) 
{ 

if(indeck[j][4]=4) 
numcom=6; 

else if (indeck[j][4]==3) 
numcom=3; 

elseif(indeck[j][4]=2) 

numcom=l ; 

else 

numcom=0; 

total[l]+=(numcom*indeck[k][4]*indeck[l][4]); 
} 

if(k>=9) 
{ 

if(indeck[k][4]=4) 
numcom=6; 

elseif(indeck[k][4]==3) 
numcom=3; 

elseif(indeck[k][4]=2) 

nvimcom=l; 

else 

numcom=0; 

total[l]+=(numcom*indeckD][4]*indeck[l][4]); 
} 

if(l>=9) 
{ 

if(indeck[l][4]=4) 

numcom=6; 

elseif(indeck[l][4]=3) 
numcom=3; 

elseif(indeck[l][4]=2) 

numcom=l; 

else 

numcom=0; 
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total[l]+=(nuincoin*indeck[j][4]*indeck[k][4]); 

}} 

total[0]=l 78365; 

for (i=l; i<=9; i-H-)total[0]-=total[i]; 

total[10]=178365; 

} 



function fast2(rl,sl,r2,s2) 
{ 

var iJ,k,hold; 

total[0]=0;total[l]=0;total[2]=0;total[3]=0;total[4]=0;total[5]=0;total[6]=0; 
total[7]=0;total[8]=0;total[9]=0;total[10]=0; total[l 1]=0; 

if(r2<rl) 
{ 

hold=rl; 

rl=r2; 

r2=hold; 

hold=sl; 

sl=s2; 

s2=hold; 

} 

/* straight and royal flush */ 
if((rl+l=r2)&&(sl=s2)) 
{ 

if(rl>=3) 

if(r2!=12) 

total[10]+=indeck[rl-3][sl]*indeck[rl-2][sl]*indeck[rl- 

i][sl]; 

else 

total[ll]=indeck[rl-3][sl]*indeck[rl-2][sl]*indeck[rl- 

l][si]; 

if((rl>=2)&&(r2<=ll)) 
if(r2!=ll) 

total[10]+=indeck[rl-2][sl]*indeck[rl- 

l][sl]*indeck[r2+l][sl]; 

else 

total[ll]=indeck[rl-2][sl]*indeck[rl- 

l][sl]*indeck[r2+l][sl]; 

if((rl>=l)&&(r2<=10)) 
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if(r2!=10) 

total[10]+=indeck[rl- 
I][sl]*indeck[r2+l][sl]*indeck[r2+2][sl]; 
else 

total[ll]=indeck[rl- 
I][sl]*indeck[r2+l][sl]*indeck[r2+2][sl]; 
if(r2<=9) 

if(r2!=9) 

total[10]-H=indeck[r2+l][sl]*indeck[r2+2][sl]*indeck[r2+3][sl]; 
else 

total[l l]=--indeck[r2+l][sl]*indeck[r2+2][sl]*indeck[r2+3][sl]; 
} 

else if ((rl+2=r2)&&(sl=s2)) 
{ 

if(rl>=2) 

if(r2!=12) 

total[10]+=indeck[rl-2][sl]*indeck[rl- 

l][sl]*indeck[rl+l][sl]; 

else//(10)-G)-q-(k)-a 

total[l l]=indeck[8][sl]*indeck[9][sl]*indeck[l l][sl]; 

if((rl>=l)&&(r2<=ll)) 
if(r2!=ll) 

total[10]+=indeck[rl- 
l][sl]*mdeck[rl+l][sl]*indeck[r2+l][sl]; 

else//(10)-j-(q)-k-(a) 

total[ll]=indeck[8][sl]*indeck[10][sl]*indeck[12][sl]; 

if(r2<=10) 

if(r2!=10) 

total[10]+=indeck[rl+l][sl]*indeck[r2+l][sl]*indeck[r2+2][sl]; 

else//10-(j)-q-(k)-(a) 

total[l l]=mdeck[9][sl]*indeck[l l][sl]*mdeck[12][sl]; 

} 

else if ((rl+3=r2)&&(sl=s2)) 
{ 

if(rl>=l) 

if(r2!=12) 

total[10]+=indeck[rl- 
l][sl]*indeck[rl+l][sl]*indeck[rl+2][sl]; 
else 

total[ll]=indeck[rl- 
l][sl]*indeck[rl+l][sl]*indeck[rl+2][sl]; 
if(r2<=ll) 

if(r2!=ll) 
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total[10]+=indeck[rl+l][sl]*indeck[rl+2][sl]*indeck[r2+l][sl]; 
else / 

total[ll]=indeck[rl+l][sl]*mdeck[rH-2][sl]*indeck[r2+l][sl]; 

else if ((rl+4==r2)&&(sl=s2)) 
{ 

if(r2!=12) 

total[10]+=indeck[rl+l][sl]*indeck[rl+2][sl]*indeck[rl+3][sl]; 

else 

total[ll]=indeck[rl+l][sl]*mdeck[rl+2][sl]*indeck[rl+3][sl]; 



if((rl=0)&&(r2==12)&&(sl==s2)) 

total[10]+=indeck[l][sl]*indeck[2][sl]*indeck[3][sl]; 
else if ((r 1 = 1 )&&(r2= 1 2)&&(s 1 =s2)) 

total[10]+=indeck[0][sl]*indeck[2][sl]*indeck[3][sl]; 
elseif((rl=2)&&(r2=12)&&(sl=s2)) 

total[10]+=indeck[0][sl]*indeck[l][sl]*indeck[3][sl]; 
else if ((rl=3)&&(r2-=12)&&(sl=s2)) 

total[10]+=indeck[0][sl]*indeck[l][sl]*indeck[2][sl]; 
else if ((rl=0)i&&(r2=l)&&(sl=s2)) 

total[10]+=indeck[2][sl]*indeck[3][sl]*indeck[12][sl]; 
else if ((rl=0)&&(r2=2)&&(sl=s2)) 

total[10]+=indeck[l][sl]*indeck[3][sl]*indeck[12][sl]; 
else if ((rl =0)&&(r2==3)&&(sl =s2)) 

total[10]+=indeck[l][sl]*indeck[2][sl]*indeck[12][sl]; 
else if ((rl==l)&&(r2=2)&&(sl=s2)) 

total[10]+=indeck[0][sl]*indeck[3][sl]*indeck[12][sl]; 
else if ((rl==l)&&(r2=3)&&(sl=s2)) 

total[10]+=indeck[0][sl]*indeck[2][sl]*indeck[12][sl]; 
else if ((rl=2)&i&(r2=3)&&(sl=s2)) 

total[10]+=indeck[0][sl]*indeck[l][sl]*indeck[12][sl]; 



/* straight */ 

if(rl+l=r2) 
{ 

if(rl>=3) 

total[4]+=indeck[rl-3][4]*indeck[rl-2][4]*indeck[rl-l][4]; 
if((rl>=2)&«fe(r2<=ll)) 

total[4]+=indeck[rl-2][4]*indeck[rl-l][4]*indeck[r2+l][4]; 
if((rl>=l)«fe&(r2<=10)) 

total[4]+=indeck[rl-l][4]*indeck[r2+l][4]*indeck[r2+2][4]; 
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if(r2<=9) 

totd[4]+=indeck[r2+l][4]*indeck[r2+2][4]*indeck[r2+3][4]; 

elseif(rl+2==r2) 
{ 

if(rl>=2) 

total[4]+=indeck[rl-2][4]*indeck[rl-l][4]*indeck[rl+l][4]; 
if((rl>=l)&&(r2<=ll)) 

total[4]+=indeck[rl-l][4]*indeck[rl+l][4]*indeck[r2+l][4]; 
if(r2<=10) 

total[4]-H=mdeck[rl+l][4]*indeck[r2+l][4]*indeck[r2+2][4]; 

elseif(rl+3=r2) 
{ 

if(rl>=l) 

total[4]+=indeck[rl-l][4]*indeck[rl+l][4]*indeck[rl+2][4]; 
if(r2<=ll) 

total[4]+=indeck[rl+l][4]*indeck[rl+2][4]*indeck[r2+l][4]; 

elseif (rl44==r2) 
{ 

total[4]+=indeck[rl+l][4]*indeck[rl+2][4]*indeck[rH-3][4]; 



if((rl=0)&&(r2=12)) 

total[4]+=indeck[l][4]*indeck[2][4]*indeck[3][4]; 
else if ((rl=l)&«&(r2==12)) 

total[4]-H=indeck[0][4]*mdeck[2][4]*indeck[3][4]; 
else if ((rl=2)&&(r2==12)) 

total[4]+=indeck[0][4]*indeck[l][4]*indeck[3][4]; 
else if ((rl=3)&&(r2=12)) 

total[4]+=indeck[0][4]*indeck[l][4]*indeck[2][4]; 
else if ((rl=0)&&(r2=l)) 

total[4]+=indeck[2][4]*indeck[3][4]*indeck[12][4]; 
else if ((rl=0)&&(r2=2)) 

total[4]+=indeck[l][4]*indeck[3][4]*indeck[12][4]; 
else if ((rl=0)&&(r2=3)) 

total[4]+=indeck[l][4]*indeck[2][4]*indeck[12][4]; 
else if ((rl=l)&&(r2==2)) 

total[4]+=indeck[0][4]*indeck[3][4]*indeck[12][4]; 
else if ((rl=l)&&(r2=3)) 

total[4]+=indeck[0][4]*indeck[2][4]*indeck[12][4]; 
else if ((rl=2)&&(r2=3)) 

total[4]+=indeck[0][4]*indeck[l][4]*indeck[12][4]; 
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total[4]-=(total[10]+total[l 1]); 

if(sl=s2) 
{ 

if(indeck[13][sl]=ll) 

total[5]=165; 
elseif(mdeck[13][sl]=10) 

total[5]=120; 
elseif(indeck[13][sl]=9) 

total[5]=84; 
else if (indeck[13][sl]=8) 

total[5]=56; 
else if (indeck[13][sl]=7) 

total[5]=35; 
elseif(indeck[13][sl]=6) 

total[5]=20; 
elseif(indeck[13][sl]=5) 

total[5]=10; 
elseif(indeck[13][sl]==4) 

total[5]=4; 
elseif(indeck[13][sl]=3) 

total[5]=l; 



total[5]-=(total[10]+total[l 1]); 



/* four of a kind */ 
for(i=0;i<=12;i-H-) 

{ 

if((rl=r2)&&(i!=rl)&&(indeck[rl][4]=2)) 
{ 

if(rl=12) 
{ 

if(i<=2) 

total[9]+=indeck[i][4]; 

else 

total[9]+=indeck[i][4]; 

} 

elseif(rl<=2) 
{ 

if((i<=2)|I(i=12)) 

total[8]+=indeck[i][4]; 

else 

total[8]+=indeck[i][4]; 
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} 

else 

total[7]+=indeck[i][4]; 

} 

else if ((rl !=r2)&&(i=rl)&&(indeck[rl][4]==3)) 
{ 

if(rl=12) 
{ 

if(r2<=2) 

total[9]-H-; 

else 

total[9]-H-; 

} 

else if (rl<=2) 
{ 

if((r2<=2)||(r2=12)) 
total[8]-H-; 

else 

total[8]-H-; 

} 

else 

total[7]-H-; 

} 

else if ((rl !=r2)&&(i=r2)&&(indeck[r2][4]=3)) 
{ 

if(r2=12) 
{ 

if(rl<=2) 

total[9]-H-; 

else 

total[9]-H-; 

} 

else if (r2<=2) 
{ 

if((rl<=2)||(rl=12)) 
total[8]-i-+; 

else 

total[8]-H-; 

} 

else 

total[7]-H-; 

} 



/* full house */ 
if(rl=r2) 
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for(i=0;i<=12;i++) 
{ 

if(i!=rl) 
{ 

if(indeck[i][4]==4) 
{ 

total[6]+=4; 
if(indeck[rl][4]=2) 

total[6]+=12; 
elseif(indeck[rl][4]=l) 

total[6]+=6; 

} 

else if (indeck[i][4]=3) 
{ 

total[6]-H-; 
if(indeck[rl][4]=2) 

total[6]+=6; 
elseif(indeck[rl][4]=l) 

total[6]+=3; 

} 

elseif(indeck[i][4]=2) 
{ 

if(indeck[rl][4]=2) 
total[6]+=2; 

elseif(indeck[rl][4]=l) 
total[6]-H-; 

} 

} 

} 



if ((indeck[r 1 ] [4]=3)&&(indeck[r2] [4]=3)) 
total[6]=18; 

eiseif((indeck[rl][4]=3)&&(indeck[r2][4]==2)) 
total[6]=9; 

else if((indeck[rl][4]=2)&&(indeck[r2][4]=3)) 
total[6]=9; 

else if ((indeck[rl ] [4]=3)&&(indeck[r2] [4]=1)) 
total[6]=3; 

elseif((indeck[rl][4]=l)&&(indeck[r2][4]=3)) 
total[6]=3; 

else if ((indeck[rl ] [4]=2)&&(indeck[r2] [4]=2)) 
total[6]=4; 

elseif((indeck[rl][4]=2)&&(indeck[r2][4]=l)) 
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total[6]=l; 

else if ((indeck[r 1] [4]=1 )&&(indeck[r2] [4]=2)) 
total[6]=l; 

} 



/* three of a kind */ 
if(rl!=r2) 

{ 

for(i=0;i<=12;i++) 
{ 



if((i!=rl)&&(i!=r2)) 
{ 

if(indeck[i][4]=4) 

totai[3]+=4; 
else if (indeck[i][4]=3) 

total[3]-H-; 

if(indeck[rl][4]=3) 

total[3]+=3*indeck[i][4]; 
elseif(indeck[rl][4]==2) 

total[3]+=indeck[i][4]; 

if(indeck[r2][4]=3) 

total[3]+=3*indeck[i][4]; 
elseif(indeck[r2][4]=2) 

total[3]-H=indeck[i][4]; 



} 

else 



for(i=0; i<=ll;i++) 

forG=i+l;j<=12;j++) 

if((i!=rl)&&G!=rl)) 

total[3]+=indeck[rl][4]*indeck[i][4]*indeck[j][4]; 



/* two pair */ 
if(rl!=r2) 

{ 

for (i=0; i<=12; 
{ 

if((i!=rl)&&(i!=r2)) 
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} 



total[2]+=indeck[i][4]*indeck[rl][4]*indeck[r2][4]; 

if(indeck[i][4]=4) 

total[2]+=6*(mdeck[rl][4]+indeck[r2][4]); 

elseif(indeck[i][4]=3) 

total[2]+=3*(indeck[rl][4]+indeck[r2][4]); 

if(indeck[i][4]=2) 

total[2]4=(indeck[rl][4]+indeck[r2][4]); 



} 

} 

else 

for(i=0; i<=ll;i-H-) 

forO=i+i;j<=i2;j++) 

if((i!=rl)&&0!=rl)) 

{ 



if(indeck[i][4]=4) 

total[2]+=(6*mdeck[j][4]); 
elseif(indeck[i][4]=3) 

total[2]+=(3*mdeck[i][4]); 
elseif(indeck[i][4]=2) 

total[2]+=indeckG][4]; 

if(indeck|j][4]=4) 

total[2]+=(6*indeck[i][4]); 

elseif(indeck[j][4]=3) 

total[2]-K3*mdeck[i][4]); 
elseif(indeckD][4]=2) 

total[2]+=indeck[i][4]; 



/* high pair */ 

if ((rl !=r2)&&(rl>=9)&&(r2>=9)) 
{ 

for(i=0;i<=ll;i-H-) 

^ forC=i+i;j<=i2;j++) 

^ if((i!=rl)&&(i!=r2)&&a!=rl)&&0!=r2)) 
{ 

total[l]4-((indeck[rl][4]+indeck[r2][4])*indeck[il[4]*indeckD][4]); 
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if(i>=9) 

if(indeck[i][4]=4) 

total[l]+=(6*indeck[j][4]); 
elseif(indeck[i][4]=3) 

total[l]+=(3*indeck[j][4]); 
else if (indeck[i][4]=2) 

total[l]+=indeck[j][4]; 

ifa>=9) 

if(indeck[j][4]=4) 

total[l]+=(6*indeck[i][4]); 
elseif(mdeckD][4]=3) 

total[l]+=(3*indeck[i][4]); 
elseif(indeckG][4]=2) 

total[l]+=indeck[i][4]; 

} 

} 

} 

} 

else if ((rl !=r2)&&(rl>=9)&&(r2<=8)) 
{ 

for(i=0;i<=ll;i-H-) 
{ 

fora=i+l;j<=12;j++) 

^ if ((i!=rl)&&(i!=r2)&&C!=rl)&&0 !=r2)) 

^ total[l]+=(indeck[rl][4]*indeck[i][4]*indeckD][4]); 

if(i>=9) 

if(indeck[i][4]=4) 

total[l]+=(6*indeckD][4]); 
elseif(indeck[i][4]=3) 

total[l]+=(3*indeck[j][4]); 
else if (indeck[i][4]=2) 

total[l]+=indeckD][4]; 

ifO>=9) 

if(indeck[j][4]=4) 

total[l]+=(6*indeck[i][4]); 
elseif(indeck[j][4]=3) 

total[l]+=(3*indeck[i][4]); 
else if (indeck|j][4]=2) 

total[l]+=indeck[i][4]; 
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} 

} 

} 



else if ((rl !=r2)&&(rl<=8)&&(r2>=9)) 
{ 

for(i=0; i<=ll;i-H-) 
{ 

for(j=i+l;j<=12;j-H-) 
{ 



if ((i!=rl)&&(i!=r2)&&(j !=rl)&&(j !=r2)) 
{ 

total[l]+=(indeck[r2][4]*indeck[i][4]*indeck[j][4]); 

if(i>=9) 
{ 

if(indeck[i][4]=4) 

total[l]+=(6*indeck[j][4]); 

else if (indeck[i][4]=3) 

total[l]+=(3*indeckD][4]); 

elseif(indeck[i][4]==2) 

total[l]+=indeck[j][4]; 

} 

ifG>=9) 
{ 

if(indeck|j][4]=4) 

total[l]+=(6*indeck[i][4]); 

elseif(indeckD][4]=3) 

total[l]+=(3*indeck[i][4]); 

elseif(indeck[j][4]=2) 

total[l]-i-=indeck[i][4]; 

} 



else if ((rl !=r2)&&(rl<=8)&&(r2<=8)) 
{ 

for(i=0;i<=ll;i-H-) 
{ 

fora=i+l;j<=12;j++) 
{ 

if ((i!=r 1 )&&(i !=r2)&&(j !=rl)&&(j !=r2)) 
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if(i>=9) 
{ 

if(indeck[i][4]=4) 

total[l]+=(6*indeck[j][4]); 
else if (indeck[i][4]=3) 

total[l]+=(3*mdeck[j][4]); 
else if (indeck[i][4]=2) 

total[l]-H=indeck[j][4]; 

} 

ifG>=9) 
{ 

if(indeckD][4]=4) 

total[l]+=(6*indeck[i][4]); 
else if (indeck[j][4]=3) 

total[l]+=(3*indeck[i][4]); 
else if (indeck[j][4]=2) 

total[l]+=indeck[i][4]; 



else if ((rl=r2)&&(rl>=9)) 
{ 

for(i=0;i<=10;i++) 
{ 

forG=i+i;j<=ii;j++) 

{ 

for(k=j+l;k<=12;k++) 
{ 

if ((i!=rl)&&(j !=rl)&&(k!=rl)) 

total[l]+=(indeck[i][4]*indeckD][4]*indeck[k][4]); 
} 

} 

} 

} 

total[0]=11480; 
for(i=l;i<=13;i++) 

total[0]-=total[i]; 

total[7]+=total[8]+total[9]; 
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total[8]=total[10]; 
total[9]=total[ll]; 
total[10]=16215; 



function fast3(rl,sl,r2,s2,r3,s3) 
{ 

var i J,hold,flush; 

total[0]=0;total[l]=0;total[2]=0;total[3]=0;total[4]=0;total[5]=0;total[6]=0; 
total[7]=0;total[8]=0;total[9]=0; total[10]=0; total[l 1]=0; 

if (r2>r3) {hold=r2; r2=r3; r3=hold; hold=s2; s2=s3; s3=hold;} 
if (rl>r2) {hold=r2; r2=rl; rl=hold; hold=s2; s2-sl; sl=hold;} 
if (r2>r3) {hold=r2; r2=r3; r3=hold; hold=s2; s2=s3; s3=hold;} 



if((sl=s2)&&(s2=s3)) 
flush=l; 

else 

flush=0; 



if(flush==l) 
{ 

/* royal flush */ 

if ((r 1 =8)&&(r2=9)&&(r3= 1 0)) 

total[l l]=indeck[l l][sl]*indeck[12][sl]; 
else if ((rl=8)&&(r2=9)&&(r3=l 1)) 

total[ll]=indeck[10][sl]*indeck[12][sl]; 
else if ((rl=8)&&(r2=9)&&(r3=12)) 

total[l l]=indeck[10][sl]*indeck[l l][sl]; 
else if ((rl=8)&&(r2==10)&&(r3=ll)) 

total[ll]=indeck[9][sl]*indeck[12][sl]; 
else if ((r 1 =8)&&(r2== 1 0)&&(r3= 1 2)) 

total[l l]=indeck[9][sl]*indeck[l l][sl]; 
else if ((rl=8)&&(r2==l l)&&(r3=12)) 

total[ll]=indeck[9][sl]*indeck[10][sl]; 
else if ((rl=9)&&(r2=10)&&(r3=l 1)) 

total[ll]=indeck[8][sl]*indeck[12][sl]; 
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else if ((rl=9)&&(r2=10)&&(r3=12)) 

total[l l]=indeck[8][sl]*indeck[l l][sl]; 

else if ((rl=9)&&(r2=ll)&&(r3=12)) 

total[ll]=indeck[8][sl]*indeck[10][sl]; 

else if ((rl=10)&&(r2==l l)&&(r3=12)) ■ 
total[ll]=indeck[8][sl]*indeck[9][sl]; 

/* straight flush */ 

if ((r2=rl+l)&&(r3=rl+2)) 

{ 

if(rl>=2) 

total[10]=indeck[rl-2][sl]*indeck[rl-l][sl]; 
if((rl>=l)&&(r3<=ll)) 

total[10]+=indeck[rl-l][sl]*indeck[r3+l][sl]; 
if(r3<=10) 

total[10]+=indeck[r3+l][sl]*indeck[r3+2][sl]; 

} 

else if ((r2=rl+2)&&(r3=rl+3)) 
{ 

if(rl>=l) 

total[10]=indeck[rl-l][sl]*indeck[rH-l][sl]; 
if(r3<=ll) 

total[10]+=indeck[rl+l][sl]*indeck[r3+l][sl]; 

} 

else if ((r2=rl+l)&&(r3=rl+3)) 
{ 

if(rl>=l) 

total[10]=indeck[rl-l][sl]*indeck[rl+2][sl]; 
if(r3<=ll) 

total[10]+=indeck[rH-2][sl]*indeck[r3+l][sl]; 

} 

else if ((r2=rl+l)&&(r3=rl+4)) 

total[10]=indeck[rl+2][sl]*indeck[rl+3][sl]; 
else if ((r2=rl+2)&&(r3=rl+4)) 

total[10]=indeck[rl+l][sl]*indeck[rH-3][sl]; 
else if ((r2=rl+3)&&(r3=rl+4)) 

total[10]=indeck[rl+l][sl]*indeck[rl+2][sl]; 



if((rl=0)&&(r2=l)&&(r3=2)) 

total[10]+=indeck[3][sl]*indeck[12][sl]; 
else if ((rl=0)&&(r2=l)&&(r3==3)) 

total[10]+=indeck[2][sl]*indeck[12][sl]; 
else if ((rl=0)&&(r2=2)&&(r3=3)) 

total[10]+=indeck[l][sl]*indeck[12][sl]; 
else if ((rl=l)&&(r2==2)&&(r3=3)) 
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total[10]+=mdeck[0][sl]*indeck[12][sl]; 
else if ((rl=0)&&(r2=l)&&(r3=12)) 

total[10]+=indeck[2][sl]*indeck[3][sl]; 
else if ((rl=0)&&(r2=2)&&(r3=12)) 

total[10]+=indeck[l][sl]*indeck[3][sl]; 
else if ((rl=0)&&(r2=3)&&(r3=12)) 

total[10]+=indeck[l][sl]*indeck[2][sl]; 
else if ((rl =1 )&&(r2==2)&&(r3=l 2)) 

total [ 1 0] +=indeck[0] [si]* indeck[3 ] [s 1 ] ; 
else if ((rl=l)&&(r2=3)&&(r3=12)) 

total[10]+=indeck[0][sl]*indeck[2][sl]; 
else if ((rl =2)&&(r2==3)&&(r3=l 2)) 

total[10]+=indeck[0][sl]*indeck[l][sl]; 

total[10]-=total[ll]; 

} 



/* straight */ 

if ((r2=rl +l)&&(r3==rl+2)) 
{ 

if(rl>=2) 

total[4]=indeck[rl-2][4]*indeck[rl-l][4]; 

if((rl>=l)&&(r3<=ll)) 

total[4]+=(indeck[rl-l][4]*indeck[r3+l][4]); 
if(r3<=10) 

total[4]+=(indeck[r3+l][4]*indeck[r3+2][4]); 

} 

else if ((r2=rl+2)&&(r3=rl+3)) 
{ 

if(rl>=l) 

total[4]=indeck[rl-l][4]*indeck[rl+l][4]; 
if(r3<=ll) 

total[4]+=indeck[rl+l][4]*indeck[r3+l][4]; 

} 

else if ((r2=rl+l)&&(r3==rl+3)) 
{ 

if(rl>=l) 

total[4]=indeck[rl-l][4]*indeck[rl+2][4]; 
if(r3<=ll) 

total[4]+=indeck[rl+2][4]*indeck[r3+l][4]; 

} 

else if ((r2=rl+l)&&(r3=rl+4)) 

total[4]=indeck[rl+2][4]*indeck[rl+3][4]; 
else if ((r2=rl+2)&&(r3=rl+4)) 
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total[4]=indeck[rl+l][4]*indeck[rl+3][4]; 
else if ((r2=rl+3)&&(r3==rl+4)) 

total[4]=indeck[rl+l][4]*indeck[rl+2][4]; 

if ((rl=0)&&(r2=l)&&(r3=2)) 

total[4]+=indeck[3][4]*indeck[12][4]; 
else if ((rl=0)&&(r2=l)&&(r3=3)) 

total[4]+=indeck[2][4]*indeck[12][4]; 
else if ((rl=0)&&(r2=2)&&(r3=3)) 

total[4]+=indeck[l][4]*indeck[12][4]; 
else if ((rl=l)&&(r2=2)&&(r3=3)) 

total[4]+=indeck[0][4]*indeck[12][4]; 
else if ((rl=0)&&(r2=l)&&(r3=12)) 

total[4]+=indeck[2][4]*indeck[3][4]; 
else if ((rl=0)&&(r2=2)&&(r3=12)) 

total[4]+=indeck[l][4]*indeck[3][4]; 
else if ((rl=0)&&(r2==3)&&(r3=12)) 

totaI[4]+=indeck[l][4]*indeck[2][4]; 
else if ((rl=l)&&(r2=2)&&(r3=12)) 

total[4]+=indeck[0][4]*indeck[3][4]; 
else if ((rl=l)«fe&(r2=3)&&(r3=12)) 

total[4]+=indeck[0][4]*indeck[2][4]; 
else if ((rl=2)«&&(r2=3)&&(r3=12)) 

total[4]+=indeck[0][4]*indeck[l][4]; 

total[4]-=(total[10]+total[l 1]); 

if(flush=l) 
{ 

if(indeck[13][sl]=10) 

total[5]=45; 
elseif(indeck[13][sl]=9) 

total[5]=36; 
else if (indeck[13][sl]=8) 

total[5]=28; 
elseif(indeck[13][sl]=7) 

total[5]=21; 
elseif(indeck[13][sl]=6) 

total[5]=15; 
else if (indeck[13][sl]=5) 

total[5]=10; 
elseif(indeck[13][sl]=4) 

total[5]=6; 
elseif(indeck[13][sl]=3) 

total[5]=3; 
elseif(indeck[13][sl]=2) 
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total[5]=l; 

} 

total[5]-=(total[10]+total[l 1]); 



// four of a kind 

if((rl=i3)&&(indeck[rl][4]=l)) 
{ 

if(rl=12) 
{ 

for(i=0; i<=ll;i++) 

total[9]+=indeck[i][4]; 

} 

elseif(rl<=2) 
{ 

for(i=0; i<=12; i++) 
if(i!=rl) 

total[8]+=indeck[i][4]; 

} 

else 
{ 

for(i=0; i<=12; 
if(i!=rl) 

total[7]+=indeck[i][4]; 

} 

} 

else if ((rl=r2)&&(indeck[rl][4]=2)) 
{ 

if(rl=12) 
{ 

total[9]=l; 

} 

elseif(rl<=2) 
{ 

total[8]=l; 

} 

else 

total[7]=l; 

} 

else if((r2=r3)«&&(indeck[r2][4]=2)) 
{ 

if(r2==12) 

total[9]=l; 
else if (r2<=2) 

total[8]=l; 
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else 

total[7]=l; 

} 

/* full house */ 

if(rl=r3) 

{ 

for(i=0; i<=12;i++) 
{ 

if(i!=rl) 
{ 

if(indeck[i][4]=4) 
total[6]+=6; 

else if (indeck[i][4]=3) 
total[6]+=3; 

else if (indeck[i][4]=2) 
total[6]-H-; 

} 

} 

} 

else if(rl=r2) 
{ 

if(indeck[r3][4]=3) 

total[6]+=3; 
else if (indeck[r3][4]=2) 

total[6]-H-; 
total[6]+=(indeck[rl][4]*indeck[r3][4]); 

} 

elseif(r2=r3) 
{ 

if(indeck[rl][4]=3) 

total[6]+=3; 
elseif(indeck[rl][4]=2) 

total [6]++; 
total[6]+=(indeck[rl][4]*indeck[r3][4]); 

} 



/* three of a kind */ 

if(rl==r3) 

{ 

for(i=0; i<=ll;i++) 

fora=i+l;j<=12;j++) 

if((i!=rl)&&0!=rl)) 

total[3]+=(indeck[i][4]*indeckD][4]); 
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} 

elseif(rl=r2) 
{ 

for(i=0; i<=12; i++) 

if((i!=rl)&&(i!=r3)) 

total[3]+=(indeck[rl][4]*indeck[i][4]); 

elseif(r2=r3) 
{ 

for(i=0;i<=12;i++) 

if((i!=rl)&&(i!=r2)) 

total[3]+=(indeck[r2][4]*indeck[i][4]); 



} 

else 



} 



if(indeck[rl][4]=3) 

total[3]+=3; 
elseif(indeck[rl][4]-=2) 

total[3]-H-; 
if(indeck[r2][4]=3) 

total[3]+=3; 
else if (indeck[r2][4]=2) 

total[3]++; 
if(indeck[r3][4]=3) 

total[3]+=3; 
elseif(indeck[r3][4]=2) 

totaI[3]-H-; 



/* two pair */ 

if((rl==r2)&&(r2!=r3)) 

{ 

for(i=0;i<=12;i-H-) 
{ 

if((i!=rl)&&(i!=r3)) 
{ 

total[2]+=(indeck[r3][4]*indeck[i][4]); 
if(indeck[i][4]=4) 

total[2]+=6; 
else if (indeck[i] [4]=3) 

total[2]+=3; 
else if (indeck[i][4]=2) 

total[2]-H-; 

} 

} 

} 
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else if ((rl !=r2)&&(r2=r3)) 
{ 

for (i=0; i<=12; 
{ 

if((i!=rl)&&(i!=r3)) 
{ 

total[2]+=(indeck[rl][4]*mdeck[i][4]); 
if(mdeck[i][4]=4) 

total[2]+=6; 
else if (indeck[i][4]==3) 

total[2]-f=3; 
else if (indeck[i][4]=2) 

total[2]-H-; 

} 

} 

} 

else if ((rl !=r2)&&(r2!=r3)) 
{ 

total[2]+=(indeck[rl][4]*indeck[r2][4]); 
total[2]-H=(mdeck[rl][4]*indeck[r3][4]); 
total[2]+=(indeck[r2][4]*indeck[r3][4]); 



/* high pair */ 

if ((r3<=8)&&(r2>rl)&&(r3>r2)) /* three different low cards */ 
{ 

for (i=9; i<=12; 
{ 

if(indeck[i][4]=4) 

total[l]+=6; 
else if (indeck[i][4]=3) 

total[l]+=3; 
else if (indeck[i][4]=2) 

total[l]-i-+; 

} 

} 

else if ((r2>=9)&&(r2>rl)&&(r2=r3)) /* high pair, one lower smgleton */ 
{ 

for(i=0;i<=ll;i-H-) 
{ 

fora=i+l;j<=12;j-H-) 
{ 

if ((i!=rl)&&(i!=r2)&&0 !=rl)«&&(j !=r2)) 
{ 
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total[l]+=(indeck[i][4]*indeck(j][4]); 

} 

} 

} 

} 

else if ((r2>=9)&&(r2<r3)&&(r2=rl)) /* high pair, one higher singleton */ 

for(i=0;i<=ll;i-H-) 
{ 

for(j=i+l;j<=12;j-H-) 
{ 

if ((i!=r3)&&(i!=r2)&&0 !=r3)&&0" !=r2)) 
{ 

total[l]+=(indeck[i][4]*indeckO][4]); 

} 

} 

} 

} 

else if ((r2<=8)&&(r3>=9)&&(r2>rl)) /* one high card, two low */ 
{ 

for (i=0; i<=12; 
{ 

if ((i!=rl )&&(i!=r2)&&(i!=r3)) 
{ 

total[l]+=(indeck[i][4]*indeck[r3][4]); 

} 

} 

for (i=9; i<=12; i++) 
{ 

if(i!=r3) 
{ 

if(indeck[i][4]=4) 

total[l]-f=6; 
else if (indeck[i][4]=3) 

total[l]+=3; 
else if (indeck[i][4]=2) 

total[l]++; 

} 

} 

} 

else if ((rl<=8)&&(r2>=9)&&(r3>r2)) /* two high cards, one low */ 
{ 

for(i=0;i<=12;i-H-) 
{ 

if ((i!=rl )&&(i!=r2)&&(i!=r3)) 
{ 
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total[ 1 ]+=(indeck[i] [4] *indeck[r2] [4]); 
total[l]+=(indeck[i][4]*indeck[r3][4]); 

} 

for(i=9; i<=12;i-H-) 
{ 

if((i!=r2)&&(i!=r3)) 
{ 

if(indeck[i][4]=4) 

total[l]+=6; 
else if (indeck[i][4]=3) 

total[l]+=3; 
else if (indeck[i][4]=2) 

total[l]-H-; 

} 

} 

} 

else if ((rl>=9)&&(r2>rl)&&(r3>r2)) /* three high cards */ 
{ 

for(i=0;i<=12;i++) 
{ 

if ((i!=rl)&&(i!=r2)&&(i!=r3)) 
{ 

total[l]+=(indeck[i][4]*indeck[rl][4]); 
total[l]+=(indeck[i][4]*indeck[r2][4]); 
total[l]-H=(indeck[i][4]*indeck[r3][4]); 

} 

} 

for(i=9;i<=12;i++) 
{ 

if((i!=rl)&&(i!=r2)&&(i!=r3)) 
{ 

if(indeck[i][4]=4) 

total[l]4=6; 
elseif(indeck[i][4]=3) 

total[l]+=3; 
else if (indeck[i][4]=2) 

total[l]++; 

} 

} 

} 

total[0]=861; 
for(i=l;i<=13;i++) 

total[0]-=total[i]; 
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total[7]+=total[8]+total[9]; 
total[8]=total[10]; 
total[9]=total[ll]; 
total[10]=1081; 



function slow4(cl,c2,c3,c4) 
{ 

total=[]; 

total[0]=0;total[l]=0;total[2]=0;total[3]=0;total[4]=0;total[5]=0;total[6]=0; 
total[7]=0;total[8]=0;total[9]=0; total[10]=0; totaI[l 1]=0; 

for(c5=l;c5<53;++c5){ 

if ((c5!=card[0]) and (c5!=card[l]) and (c5!=caKi[2]) and (c5!=card[3]) 
and (c5!=card[4])) { 

payhand(cl ,c2,c3,c4,c5); 

rank=10-rank; 

total[rank]-H-; 

} 

} 

total[10]=47; 

} 



function convert(n) 
{ 

s=0; r=n; 

if (r>13) {r=r-13; s++;} 
if(r>13) {r=r-13; S++;} 
if (r>13) {i=r-13; s++;} 
r=r-2; 

if (r=-l) {r=12;} 

} 

fimction calculate(a,b,c,d,e) 

{ 

total=[]; 
setinitialdeckQ; 

convert (a); ar=r; as=s; indeck [r][s]=0; indeck[13][s]-; indeck[r][4]-; 
convert (b); br=r; bs=s; indeck [r][s]=0; indeck[13][s]--; indeck[r][4]-; 
convert (c); cr=r; cs=s; indeck [r][s]=0; indeck[13][s]--; indeck[r][4]-; 
convert (d); di=r; ds=s; indeck [r][s]=0; indeck[13][s]-; indeck[r][4]-; 
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convert (e); er=r; es=s; indeck [r][s]=0; indeck[13][s]-; indeck[r][4]-; 
} 

function findbottom () { 
pay[0]=0; 

for (next=bott-l ; next>0; -next) { 

if ((pay[next]!=0) or (next=0)) {return;} 

} 

function findhighest () { 
highest=bott; 

for (y=bott+l ; y<10; y++) { 

if (pay[y]>pay[highest]) {highest=y;} 

} 



function adjusttable2() { 

x=0; holdrank=0; holdjs=0; hold3=0; hold2=0; 

// holdjs is 1 when player holds 3 cards including Js or better 

//hold3 is 1 when player holds 4 cards with 3oak 

//hold is 1 when player holds 4 cards with high pair 

// X is # of cards held 

// first we need to call the appropriate fast or slow routine 

x=hold[0]+hold[l]+hold[2]+hold[3]+hold[4]; 

if (x=0) {calculate (card[0],card[l],card[2],card[3],card[4]); 

fastOO; 

} 



if (x==l) { 

if (hold[0]=l) {calculate 
(card[0],card[l],card[2],card[3],card[4]);} 

if (hold[l]=l) {calculate 
(card[l],card[0],card[2],card[3],card[4]);} 

if (hold[2]=l) {calculate 
(card[2],card[l],card[0],card[3],card[4]);} 

if (hold[3]=l) {calculate 
(card[3],card[l],card[2],card[0],card[4]);} 

if (hold[4]=l) {calculate 
(card[4],card[l],card[2],card[3],card[0]);} 
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fasti (ar,as); 
} 

=2) {calculate (card[0],card[l],card[2],card[3],card[4]); 

if ((hold[0]=l) and (hold[l]=l)) {fast2(ar,as,br,bs); 
if ((ar=br) and (ar>8)) {holdrank=l;} 
else if (ar=br) {holdrank=4;}} 
if ((hold[0]=l) and (hold[2]=l)) {fast2(ar,as,cr,cs); 
if ((ar=cr) and (ar>8)) {holdrank=l;} 
else if (ar=cr) {holdrank=4;}} 
if ((hold[0]=l) and (hold[3]=l)) {fast2(ar,as,dr,ds); 
if ((ar=dr) and (ar>8)) {holdrank=l;} 
else if (ar=dr) {holdrank=4;}} 
if ((hold[0]=l) and (hold[4]=l)) {fast2(ar,as,er,es); 
if ((ar=er) and (ar>8)) {holdrank=l;} 
else if (ar=er) {holdrank=4;}} 
if ((hold[l]=l) and (hold[2]=l)) {fast2(br,bs,cr,cs); 
if ((br=cr) and (br>8)) {holdrank=l;} 
else if (br=cr) {holdrank=4;}} 
if ((hold[l]=l) and (hold[3]=l)) {fast2(br,bs,dr,ds); 
if ((br=dr) and (br>8)) {holdrank=l;} 
else if (br=dr) {holdrank=4;}} 
if ((hold[l]=l) and (hold[4]=l)) {fast2(br,bs,er,es); 
if ((br=er) and (br>8)) {holdrank=l;} 
elseif(br=er) {holdrank=4;}} 
if ((hold[2]=l) and (hold[3]=l)) {fast2(cr,cs,dr,ds); 
if ((cr=dr) and (cr>8)) {holdrank=l;} 
else if (ci=dr) {holdrank=4;}} 
if ((hold[2]=l) and (hold[4]=l)) {fast2(cr,cs,er,es); 
if ((cr=er) and (cr>8)) {holdrank=l;} 
else if (cr=er) {holdrank=4;}} 
if ((hold[3]=l) and (hold[4]=l)) {fast2(dr,ds,er,es); 
if ((dr=er) and (dr>8)) {holdrank=l;} 
else if (dr=er) {holdrank=4;}} 



3) {calculate (card[0],card[l],card[2],card[3],card[4]); 

if ((hold[0]=0) and (hold[l]=0)) {fast3(cr,cs,dr,ds,er,es) 
if ((cr=dr) and (dr=er)) {holdrank=2;} 
if (((cr=dr) and (cr>8)) or ((dr=er) and (dr>8)) 
or ((cr=er) and (cr>8))) {holdjs=l;}} 

if ((hold[0]=0) and (hold[2]=0)) {fast3(br,bs,dr,ds,er,es) 
if ((br==dr) and (dr=er)) {holdrank=2;} 
if (((br=dr) and (br>8)) or ((dr=er) and (dr>8)) or 
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((br=er) and (br>8))) {hoIdjs=l;}} 

if ((hold[0]=0) and (hold[3]=0)) {fast3(br,bs,cr,cs,er,es); 
if ((bi=cr) and (cr=er)) {holdrank=2;} 
if (((br=cr) and (br>8)) or ((cr=er) and (cr>8)) or 
((br=er)and(br>8))) {holdjs=l;}} 

if ((hold[0]=0) and (hold[4]=0)) {fast3(br,bs,cr,cs,dr,ds); 
if ((br=cr) and (cr=dr)) {holdrank=2;} 
if (((br=cr) and (br>8)) or ((br=dr) and (br>8)) or 
((cr=dr) and (cr>8))) {holdjs=l;}} 

if ((hold[l]=0) and (hold[2]=0)) {fast3(ar,as,dr.ds,er,es); 
if ((ar=dr) and (dr=er)) {hoIdrank=2;} 
if (((ai=dr) and (ar>8)) or ((dr=er) and (dr>8)) or 
((ar=er)and(ar>8))) {holdjs=l;}} 

if ((hold[l]=0) and (hold[3]=0)) {fast3(ar,as,cr,cs,er,es); 
if ((ar=cr) and (cr=er)) {holdrank=2;} 

if (((ai=cr) and (ar>8)) or ((cr=er) and (cr>8)) or 
((ar==er)and(ar>8))) {holdjs=l;}} 

if ((hold[l]=0) and (hold[4]=0)) {fast3(ar,as,cr,cs,dr,ds); 
if ((ar=cr) and (cr=dr)) {holdrank=2;} 
if (((ai=cr) and (ar>8)) or ((ar=dr) and (ar>8)) or 
((cr=dr) and (cr>8))) {holdjs=l;}} 

if ((hold[2]=0) and (hold[3]=0)) {fast3(ar,as,br,bs,er,es); 
if ((ar=br) and (hr=er)) {holdrank=2;} 
if (((ar=-br) and (ar>8)) or ((br=er) and (br>8)) or 
((ar==er) and (ar>8))) {holdjs=l;}} 

if ((hold[2]=0) and (hold[4]=0)) {fast3(ar,as,br,bs,dr,ds); 
if ((ar=br) and (br=dr)) {holdrank=2;} 
if (((ar=br) and (ar>8)) or ((br=dr) and (br>8)) or 
((ar=dr) and (ar>8))) {holdjs=l;}} 

if ((hold[3]=0) and (hold[4]=0)) {fast3(ar,as,br,bs,cr,cs); 
if ((ar=br) and (br==cr)) {holdrank=2;} 
if (((ar=br) and (ar>8)) or ((br=cr) and (br>8)) or 
((ar=cr) and (ar>8))) {holdjs=l;}} 



if (x=4) {calculate (card[0],card[l],card[2],card[3],card[4]); 
if (hold[0]=0) {slow4 (card[l],card[2],card[3],card[4]); 
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if ((br=cr) and (cr=dr) and (dr=er)) {holdrank=5;} 
else 

if (((br==cr) and (dr=er)) or 

((br=dr) and (cr==er)) or 

((bi=er) and (cr=dr))) {holdrank=3;} 

if (((br=cr) and (cr=dr)) or ((cr=dr) and (dr=er)) 

or ((br==cr) and (ci=er)) or ((br=dr) and 

(dr=er))) 

{hold3=l;} 

if (((br=cr) and (br>8)) or ((cr=dr) and (cr>8)) 
or ((dr=er) and (dr>8))) {hold2=l;}} 



(dr=er))) 



if (hold[l]=0) {siow4 (card[0],card[2],card[3],card[4]); 
if ((ar=cr) and (cr=dr) and (dr=er)) {holdiank=5;} 
else if (((ar=cr) and (dr=er)) or 
((ar=dr) and (cr=er)) or 
((ar=er) and (cr=dr))) {holdrank=3;} 
if (((ai=cr) and (ci=dr)) or ((cr=dr) and (di=er)) 

or ((ar=cr) and (cr==er)) or ((ar=dr) and 

{hold3=l;} 

if (((ar=cr) and (ar>8)) or ((cr=dr) and (cr>8)) • 
or ((dr=er) and (dr>8))) {hold2=l ;} } 



if (hold[2]=0) {slow4 (card[0],card[l],card[3],card[4]); 
if ((ar=br) and (br==dr) and (di=er)) {holdrank=5;} 
else if (((ar=br) and (dr=er)) or 
((ar=dr) and (br=er)) or 
((ar=er) and (br=dr))) {holdrank=3;} 
if (((ar=br) and (br=dr)) or ((br=dr) and (dr=er)) 

or ((ar=br) and (br=er)) or ((ar=dr) and 

(dr=er))) 

{hold3=l;} 

if (((ar=br) and (ar>8)) or ((br=dr) and (br>8)) 
or ((dr=er) and (dr>8))) {hold2=l;}} 

if (hold[3]=0) {slow4 (card[0],card[l],card[2],card[4]); 
if ((ar=br) and (br=cr) and (cr==er)) {holdrank=5;} 
else if (((ar=br) and (cr=er)) or 
((ar=cr) and (br=er)) or 
((ar=er) and (br=cr))) {holdrank=3;} 
if (((ai=br) and (br=cr)) or ((br=cr) and (ci=er)) 

or ((ar=br) and (br=er)) or ((ar=cr) and 

(cr=er))) 
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{hold3=l;} 

if (((ar=br) and (ar>8)) or ((br=cr) and (br>8)) 
or ((cr=er) and (er>8))) {hold2=l ;} } 

if (hold[4]==0) {slow4 (card[0],card[l],card[2],card[3]); 
if ((ai=br) and (br=cr) and (cr=dr)) {holdrank=5;} 
else if (((ar=br) and (ci=dr)) or 
((ar=cr) and (br=dr)) or 
((ar=dr) and (bi=cr))) {holdrank=3;} 
if (((ar=br) and (br=cr)) or ((br==cr) and (cr==dr)) 
(ci=dr))) oi'((ai=br)and(br=dr))or((ar=cr)and 

{hold3=l;} 

if (((ar=br) and (ar>8)) or ((br=cr) and (br>8)) 
^ or ((cr=dr) and (dr>8))) {hold2=l ;} } 

if (x=5) {total[l]=0; total[2]=0; total[3]=0; total[4]=0; 
total[5]=0; total[6]=0; total[7]=0; total[8]=0; 
total[9]=0; 

removemovieclip (redDDonid); 
reddd=0;} 

// holding 4 of a kind, need to deactivate double button 
if ((x=4) and 

(((hold[0]=0) and ((br=cr) and (cr==dr) and (di=er))) 



or 



(cr==dr))))) 



((hold[l]=0) and ((ar==cr) and (cr=dr) and (dr=er))) or 
((hold[2]=0) and ((ar=br) and (bi=dr) and (di=er))) or 
((hold[3]=0) and ((ar=br) and (br==cr) and (cr=er))) or 
((hold[4]=0) and ((ar=br) and (br=cr) and 

{total[l]=0; total[2]=0; total[3]=0; total[4]=0; 
total[5]=0; total[6]=0; total[7]=0; total[8]=0; 
total[9]=0; 

removemovieclip (redDDonid); 
reddd=0;} 

if ((x!=5) and (reddd=0) and (gameover=0)) { 
_root.attachmovie ("redDDon","redDDonid",++depth); 
_root["redDDonid"]._x=buttonDDx; 

_root["redDDonid"]._y=buttonDDy; 

reddd=l; 

_root["redDDonid"].onRelease=function() { 
removemovieclipC'redDDonid"); 
removemovieclip("reddealdrawonid"); 
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reddd=0; 

double=2; 

bets=coins*double 

_root.doubleinfobox.htinltext="<BR> DOUBLED!"; 

_root.coinsbetbox.htmltext=bets; 

money=money-coins; 

_root.moneybox.htmltext='<palign="center">$'+money; 
playclickQ; 

for(i=0;i<5;-H-i){ 

varcardid="card"+card[i]+"big"+"id"; 
if Croot[cardid]._held=0) { 

attachmovie ("wiz","wiz"+i,-i-+depth); 

_root["wiz"+i]._x=cardsx+i* 150; 

_root["wiz"+i]._y=cardsy;} 

cardCoimtl=-l; 
done=0; 

intervalIDl=setInterval(drawone, delay); 



pl=total[9]/total[10]; 
p2=total[8]/total[10]; 
p3=total[7]/total[10]; 
p4=total[6]/total[10]; 
p5=total[5]/total[10]; 
p6=total[4]/total[10]; 
p7=total[3]/total[10]; 
p8=total[2]/total[10]; 
p9=total[l]/total[10]; 

payinghands=0; 

if(total[l]!=0) {payinghands-H-}; 
if(total[2]!=0) {payinghands++}; 
if(total[3]!=0) {payinghands++}; 
if(total[4]!=0) {payinghands-H-}; 
if(total[5]!=0) {payinghands-H-}; 
if (total[6]!=0) {payinghands-H-}; 
if(total[7]!=0) {payinghands++}; 
if(total[8]!=0) {payinghands-H-}; 
if (total[9]!=0) {payinghands-H-}; 



rl=0; r2=0; r3=0; r4=0; r5=0; r6=0; r7=0; r8=0; r9=0; 
if (pi !=0) {rl =((coins*gameret)/pl Vpayinghands;} 
if (p2!=0) {r2=((coins*gameret)/p2)/payinghands;} 
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if (p3 !=0) {r3=((coins*gameret)/p3)/payinghands 
if (p4!=0) {r4=((coins*gameret)/p4)/payinghands 
if(p5!=0) {r5=((coins*gameret)/p5)/payinghands 
if (p6!=0) {r6=((coins*gameret)/p6)/payinghands 
if (p7!=0) {r7=((coins*gameret)/p7)/payinghands 
if (p8!=0) {r8=((coins*gameret)/p8)/payinghands 
if (p9!=0) {r9=((coins*gameret)/p9)/payinghands 



P[l]=pl; P[2]=p2; p[3]=p3; p[4]=p4; p[5]=p5; p[6]=p6; p[7]=p7; p[8]=p8; p[9]=p9; 
pay[l]=rl; pay[2]=r2; pay[3]=r3; pay[4]=r4; pay[5]=r5; 
pay[6]=r6; pay[7]=r7; pay[8]=r8; pay[9]=r9; 



// player is dealt J or better and holds the pair, have to 0 out rank 9 payout 
if (holdrank==l) 

{f=(pay[7]*p[7]+pay[8]*p[8]+pay[9]*p[9])/(pay[7]*p[7]+pay[8]*p[8]); 

pay[8]=pay[8]*f; 

pay[7]=pay[7]*f; 

pay[9]=0; 

payinghands-; 

// now lets shift some down for 4oak to ranks 7 and 8 

s=.5; //shrinking factor for 4oak 

f=(pay[3]*p[3]+pay[8]*pr81+payr71*pr71- 
s*pay[3]*p[3])/(pay[7]*p[7]+pay[8]*p[8]); ^ ^ ^ ^ ^ J P J PI J 

pay[3]=pay[3]*s; 

pay[7]=pay[7]*f; 

pay[8]=pay[8]*f; 

} 

// player is dealt 3 of a kind, need to shift to fiiU house and 4oak 
if (holdrank=2) {f=coins/(coins-pay[7]*p[7]); 

pay[4]=pay[4]*f; 
pay[3]=pay[3]*f; 
^ pay[7]=0; 

// player is dealt 2 pair, ned to shift to fiill house 
if (holdrank=3) {f=coins/(coins-pay[8]*p[8]); 

pay[4]=pay[4]*f; 

pay[8]=0; 

} 

// player is dealt a low pair, so shift payouts from top 
if (holdrank==4) {s=.4; //shrinking factor for 4oak 
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f=(pay[3]*p[3]+payr81*p[8]+payr71*pr71- 
s*pay[3]*p[3])/(pay[7]*p[7]+pay[8]*p[8]); ^ ^ ^ ^ •> J P yL J Pl/J 

pay[3]=pay[3]*s; 
pay[7]=pay[7]*f; 
pay[8]=pay[8]*f; 

s=.75; //lets take some off full house too 

f=(pay[4]*p[4]4pay[8]*p[8]+pay[7]*pr7]- 
s*pay[4]*p[4])/(pay[7]*p[7]+pay[8]*p[8]); j p yij pi j p yi j pij 

pay[4]=pay[4]*s; 
pay[7]=pay[7]*f; 
pay[8]=pay[8]*f; 
} 



// if J or better pays less than coins 

for(i=l;i<6;i-H-){ 

if ((pay[9]>0) and 0>ay[9]<coins)) { 

s=.75; 

f^(pay[l]*p[l]+pay[9]*p[9]-s*pay[l]*p[l])/(pay[9]*p[9]); 

pay[l]=pay[l]*s; 

pay[9]=pay[9]*f; 

} 



if ((pay[9]>0) and (pay[9]<coins)) { 

s=.75; 

fKpay[2]*p[2]+pay[9]*p[9]-s*pay[2]*p[2])/(pay[9]*p[9]); 
pay[2]=pay[2]*s; 

pay[9]=pay[9]*f; 

} 

if ((pay[9]>0) and (pay[9]<coins)) { 
s=.75; 

f=(pay[3]*p[3]+pay[9]*p[9]-s*pay[3]*p[3])/(pay[9]*p[9]); 

Pay[3]=pay[3]*s; 

Pay[9]=pay[9]*f;} 

if ((pay[9]>0) and (pay[9]<coins)) { 
s=9; 

f^(pay[4]*p[4]+pay[9]*p[9]-s*pay[4]*p[4])/(pay[9]*p[9]); 
pay[4]=pay[4]*s; 

Pay[9]=pay[9]*f; 
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} 
} 

// ok now try using the lower payouts to make rank 9 >= coins 

for(i=l;i<6;i-H-){ 

if ((pay[9]>0) and (pay[9]<coins)) { 

8=75; 

f^(pay[4]*p[4]+pay[9]*p[9]-s*pay[4]*p[4])/(pay[9]*p[9]); 
pay[4]=pay[4]*s; 

Pay[9]=pay[9]*f; 

} 



if ((pay[9]>0) and (pay[9]<coins)) { 

s=75; 

i^(pay[5]*p[5]+pay[93*p[9]-s*pay[5]*p[5])/(pay[9]*p[9]); 
pay[5]=pay[5]*s; 

pay[9]=pay[9]*f; 

} 

if ((pay[9]>0) and (pay[9]<coins)) { 
s=75; 

f=(pay[6]*p[6]+pay[9]*p[9]-s*pay[6]*p[6])/(pay[9]*p[9]); 
pay[6]=pay[6]*s; 

Pay[9]=pay[9]*f;} 

if ((pay[9]>0) and (pay[9]<coins)) { 
s=.9; 

f^(pay[7]*p[7]+pay[9]*p[9]-s*pay[7]*p[7])/(pay[9]*p[9]); 

pay[7]=pay[7]*s; 
pay[9]=pay[9]*f; 



if ((pay[9]>0) and (pay[9]<coins)) { 
s=.75; 

f^(pay[8]*p[8]+pay[9]*p[9]-s*pay[8]*p[8])/(pay[9]*p[9]); 

pay[8]=pay[8]*s; 

pay[9]=pay[9]*f;} 



// cap royal payout and transfer to bottom 
royalcapl=(royalcap/5)*coins; 
if (pay[l]>royalcapl) { 
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s=royalcapl/pay[l]; 
bottom=0; 

for (i=l; i<10; i++) {if (pay[i]!=0) {bottom=i;}} 

f^(pay[bottom]*p[bottom]-s*pay[l]*p[l]+pay[l]*p[l])/(pay[bottom]*p[bottom]); 
pay[bottom]=f*pay[bottom]; 
pay[l]=royalcapl; 

} 

// cap straight flush payout and transfer to bottom 

straightflushcapl =(straightflushcap/5)*coins; 
if(pay[2]>straightflushcapl) { 

s=straightflushcap 1 /pay [2] ; 
bottom=0; 

for(i=l; i<10; i++) {if (pay[i]!=0) {bottom=i;}} 

// if available, lets use 2 pair for bottom to balance things out 
if(pay[8]>0) {bottom=8;} 

f=(pay[bottom]*p[bottom]-s*pay[2]*p[2]+pay[2]*p[2])/(pay[bottom]*p[bottom]); 
pay[bottom]=f*pay[bottom]; 

pay[2]=straightflushcapl ; 
} 

if ((holdiank!=2) and (holdjs=l)) {//shift J or better payout to 2 Pair 
f^(pay[8]*p[8]+pay[9]*p[9])/(pay[8]*p[8]); 

pay[8]=pay[8]*f; 
^ pay[9]=0; 



//shift rank 7 to 4, player holds Soak and misc card 
if ((holdrank!=5) and (hold3=l)) { 

f^(pay[4]*p[4]+pay[7]*p[7])/(pay[4]*p[4]); 

pay[4]=pay[4]*f; 
^ pay[7]=0; 

// holding 4 cards with high pair, need to shift 9 to 8 
if ((x=4) and (hold2=l) and (hold3!=l) and (holdrank!=3)) { 
Hpay[8]*p[8]-fpay[9]*p[9])/(pay[8]*p[8]); 

pay[8]=pay[8]*f; 

pay[9]=0; 
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//need to shift fractions up 

bott=10; 

findbottomQ; 

for(i=l;i<10;-H-i){ 

bott=next; 

findbottomQ; 

// need to transfer fraction on pay[bott] to pay[next] 
if (next!=0) { 

want=math.floor(pay[bott]); wantl=want; 

if ((want>30) and (want <125)) {want=(coins*math.floor(want/coins)); 

^ if (((wantl/coins)-math.floor(wantl/coins)) >.5) want=want+coins+.001 ; 

else if ((want>125) and (want<1000)){want=(10*math.floor(want/10)); 

if (((wantl/10)-math.floor(wantl/10)) >.5) want=want+10.001;} 
else if ((want>25) and (wantOO)) {want=30.01;} 
else if ((want>1000)) {want=(50*math.floor(want/50)); 

if (((wantl/50)-math.floor(wantl/50)) >.5) want=want+50.001;} 
else if ((want>10000)) {want=(100*math.floor(want/100)); 

if (((wantl/100)-math.floor(wantl/100)) >.5) want=want+l 00.001;} 

s=want/pay[bott]; 

f^(pay[next]*p[next]+pay[bott]*p[bott]-s*pay[bott]*p[bott])/(pay[next]*p[next]); 
pay[next]=f*pay [next] ; 
pay [bott]=pay[bott] *s; 
} else {i=9;} 

} 

findhighestO; 
if (bott!=hi^est) { 

// transfer fractional part of bott to highest to improve accuracy 

s=math.floor(pay[bott])/pay[bott] ; 

f^(pay[highest]*p[highest]+pay[bott]*p[bott]- 
s*pay[bott]*p[bott])/(pay[highest]*p[highest]); 
pay[highest]=f^pay [highest] ; 
pay[bott]=pay[bott]*s; 
} 

// straight flush may be bigger than cap again, lets move to royal if possible 
if ((pay[2]>straightflushcap) and (pay[l]>0)) { 
s=straightflushcap/pay[2]; 
bottom=l; 
f=(pay[bottom] *p[bottom]- 
s*pay[2]*p[2]+pay[2]*p[2])/(pay[bottom]*p[bottom]); 
pay[bottom]=f*pay[bottom]; 
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pay[2]=straightflushcap; 

} 



if (x=5) {pay[l]=0; pay[2]=0; pay[3]=0; pay[4]=0; pay[5]=0; pay[6]=0; 
pay[7]=0; pay[8]=0; pay[9]=0;} 

pay[9]=pay[9]+.00001 

// round off large payouts by coins 
for(i=l;i<10;-H-i) { 

if (pay[i]>2000) {pay[i]=(coins*math.floor<pay[i]/coins));} 
else {pay[i]=math.floor(pay[i]);} 

} 

if (gameover=0) { 

_root.paytable2rankl .text=pay[l ]; 

_root.paytable2rank2.text=pay[2]; 

_root.paytable2rank3.text=pay[3]; 

_root.paytable2rank4.text=pay [4] ; 

_root.paytable2rank5.text=pay[5]; 

_root.paytable2rank6.text=pay[6]; 

_root.paytable2rank7.text=pay[7]; 

jroot.paytable2rank8.text=pay[8]; 

_root.paytable2rank9.text=pay[9]; 

adv=p[l]*pay[l]+p[2]*pay[2]+p[3]*pay[3]+p[4]*pay[4]+p[5]*pay[5]+p[6]*pay[6]+p[7] 
*pay[7]+p[8]*pay[8]+p[9]*pay[9]; 
adv=adv/coins 

_root.retumbox.text="retum="+adv; 

if ((x=4) and (adv=0)) {removemovieclip (redDDonid); 

reddd=0;} 

} 

} 



function showpaysO { 

//_root.rankl.htmltext='<FONT COLOR="#00FF00">ROYAL FLUSH'; 
highlight='<FONT COLOR="#fifD000">'; 
defaul='<FONT C0L0R="#fdfe7e">' 

light[0]=defaul; light[l]=defaul; light[2]=defaul;light[3]=defaul;light[4]=defaul; 
light[5]=defaul;light[6]=defaul; light[7]=defaul; light[8]=defaul; light[9]=defaul; 
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light[winningrank]=highlight; 
bets=coms*double 

if (double=l) {_root.doubleinfobox.htmltext="doubling pays <br>an additional' 

_root.coinsinbox2.htmltext=" ";} 
else if (double=2) {//_root.doubleinfobox.htmltext="DOUBLED!"; 

} 

_root.rankl .htmltext=light[l]+ranks[l]; 
_root.rank2.htmltext=light[2]+raiiks[2]; 
_root.rank3 .htmltext=light[3]+ranks[3]; 
_root.rank4.htmltext=light[4]+ranks[4]; 
_root.rank5.htmltext=light[5]+ranks[5]; 
_root.rank6.htmltext=light[6]+ranks[6] ; 
_root.ran]c7.htmltext=Iight[7]+ranks[7]; 
_root.raiik8.htmltext=iight[8]+ranks[8]; 
_root.rank9.htmltext=light[9]+ranks[9] ; 

defaul='<p align="center"> <FONT C0L0R="#fdfe7e">'; 

light[0]=defaul; light[l ]=defaul; light[2]=defaul;light[3]=defaul;light[4]=defaul; 

light[5]=defaul;light[6]=defaul; light[7]=defaul; light[8]=defeul; light[9]=defaul; 

light[wimiingrank]=defaul+hi^ight; 

_root.paytablelrankl.htmltext=ligJit[l]+payout[l]*coins; 
_root.paytable 1 rank2.htmltext=light[2]+payout[2]*coins; 
_root.paytable 1 rankS .htmltext=light[3]+payout[3] *coins; 
_root.paytablelrank4.htmltext=light[4]+payout[4]*coins; 
_root.paytablelrank5.htmltext=Iight[5]+payout[5]*coins; 
_root.paytable 1 raiik6.htmItext=light[6]+payout[6] *coins; 
_root.paytablelrank7.htmltext=light[7]+payout[7]*coins; 
_root.paytable 1 rank8.htmltext=light[8]+payout[8] *coins; 
_root.paytablelrank9.htmltext=light[9]+payout[9]*coins; 



if (double= 1 ) {light[winningrank]=defaul; } 

_root.paytable2rankl .htmltext=light[l]+pay[ 1 ] 
_root.paytable2rank2.htmltext=light[2]+pay[2] 
_root.paytable2rank3.htmltext=light[3]+pay[3] 
_root.paytable2rank4.htmltext=light[4]+pay[4]; 
_root.paytable2rank5.htmltext=light[5]+pay[5]: 
_root.paytable2rank6.htmltext=light[6]+pay[6]; 
_root.paytable2rank7.htinltext=light[7]+pay[7]; 
_root.paytable2rank8.htmltext=light[8]+pay[8]; 
_root.paytable2rank9.htmltext=light[9]+pay[9]; 
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winningrank=0; 
} 



function shufBeQ 
{ 

for(var i=0;i<52;-H-i) 
{card[i]=i+l;} 
var randcard; 
var temp; 

for (var i=0; i<52; ++i) { 

randcard=math.floor(math.randomO*51 +1); 

temp=card[randcard]; 

card[randcard]=card[i]; 

card[i]=temp; 

} 

//card[0]=13; card[l]=ll;card[2]=12; card[3]=9; card[4]=10; 

//card[0]=12; card[l]=25; card[2]=38; 

//card[0]=l;card[l]=14;card[2]=27;card[4]=40; 

//card[0]=l ;card[l ]=1 4;card[2]=2;card[3]=l 5; 

//card[0]=10; card[l]=2; card[2]=3; card[3]=4; card[4]=5; card[10]=l; 

} 

function playcardQ 
{ 

mySound=new Sound(this); 

mySound.attachSomid("caidtum"); 

mySound.setVolume(200); 

mySoundstartO; 

} 

function playclickQ 

{ 

mySound=new Sound(this); 

mySound.attachSound("click"); 

mySound.setVolume(l 00); 

mySoundstartO; 

} 

function playwinOQ 
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{ 

mySound=new Sound(this); 

mySound.attachSoundC'smallwin"); 

mySound.setVolume(l 00); 

mySound.startO; 

} 



function playwinQ 
{ 

if (chimes=0) {clearinterval(intervalchime); return;} 

else {chimes-; 
mySound=new Sound(this); 

mySound.attachSound("smallwin"); 
mySound.setVolume(l 00); 

mySound.startO; 

} 

} 

function playdiamondQ 

{ 

mySound=new Sound(this); 

mySound.attachSound("diamond"); 
mySound.setVolume(l 00); 
mySound.startO; 
} 

function playbigwinQ 
{ 

mySound^ew Sound(this); 

mySound.attachSound("bigwin"); 

mySound.setVolume(l 00); 

mySound.startO; 

} 



Action dealblankcardsQ { 

for(i=0; i<5;++i){ 

removemovieclip ("wiz"+i); 
attachmovie("wiz","wiz"+i,++depth); 
_root["wiz"+i]._x=cardsx+i* 150; 
_root["wiz"+i]._y=cardsy; 

} 

} 
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function payhand (a,b,c,d,e) 
//determine the rank of the final hand 

{ 

lastcard=[]; 

lastcard[l]=a;lastcard[2]=b;lastcard[3]=c;lastcard[4]=d;lastcard[5]=e; 

finalvalue=[]; 

finalsuit=[]; 

for(i=l;i<6;-H-i) { 

cardindex=lastcard[i] ; 

suit=l 

if (cardindex>13) { cardindex=cardindex-13; -H-suit;} 
if(cardindex>13) { cardindex=cardindex-13;-H-suit;} 
if(cardindex>13) { cardindex=cardindex-13;-H-suit;} 
retumcard=cardindex; 

finalvalue[i]=retumcard; 
finalsuit[i]=suit;} 

for0=ly<5;++j){ 
for(i=l;i<5;-H-i) { 

if (finalvalue[i]>finalvalue[i+l ]) {tempvalue=finalvalue[i]; 

tempsuit=finalsuit[i] ; 

finalvalue[i]=finalvalue[i+l]; 

finalsuit[i]=finalsuit[i+l]; 

j5nalvalue[i+l]=tempvalue; 

finalsuit[i+ 1 ]=tempsuit; 
} 

}} 

flush=0; fourkind=0; straight=0; fullhouse=0; threekind=0; twopair=0; 
jorbetter=0; rank=0; 



if ((finaisuit[l]=finalsuit[2]) and (finalsuit[2]=finalsuit[3]) and 

(finalsuit[3]=finalsuit[4]) and (finalsuit[4]=fmalsuit[5])) 

{flush=l;} 

if ((fmalvalue[l]=fmalvalue[2]) and (finalvalue[2]=fmalvalue[3]) and 
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(fmalvalue[3]=fmalvalue[4])) {fourkmd=l;} 

if ((finalvalue[2]=finalvalue[3]) and (finalvalue[3]=finalvalue[4]) and 
(fmalvalue[4]=finalvalue[5])) {fourkind=l ;} 

if ((finalvalue[l]=fmalvalue[2]) and (finalvalue[2]=finalvalue[3]) and 
(finalvalue[4]=finalvalue[5])) {ftillhouse=l;} 



if ((finalvalue[3]=finalvaiue[4]) and (finalvalue[4]=finalvalue[5]) and 
(finalvalue[l]=finalvalue[2])) {fullhouse=l;} 

if ((finalvalue[l]=fmalvalue[2]-l) and (finalvalue[2]=finalvalue[3]-l) and 
(finalvalue[3]=finalvalue[4]-l) and (finalvalue[4]=finalvalue[5]-l)) 
{straight=l;} 

if ((finalvalue[l]=l) and (finalvalue[2]=10) and (fmalvalue[3]=ll) and 
(finalvalue[4]=12) and (finalvalue[5]=13)) {straight=l;} 

if (((finalvalue[l]=finalvalue[2]) and (finalvalue[2]=finalvalue[3])) or 
((finaivalue[2]=finalvalue[3]) and (finalvalue[3]=fmalvalue[4])) or 

((finalvalue[3]=finalvalue[4]) and (fmalvalue[4]=finalvalue[5]))) 
{threekind=l;} 

if (((finalvalue[l]=finalvalue[2]) and (finalvalue[3]=finalvalue[4])) or 
((finalvalue[2]-=finalvalue[3]) and (finalvalue[4]=finalvalue[5])) 

or ((finalvalue[l]=fmalvalue[2]) and (finalvalue[4]=finalvalue[5]))) 
{twopair=l;} 

if (((finalvalue[l]=finalvalue[2]) and (finalvalue[l]>10 or finalvalue[l ]==!)) 

or 

((finalvalue[2]=finalvalue[3]) and (finalvalue[2]>10 or 
finalvalue[2]=l)) or 

((finalvalue[3]=fmalvalue[4]) and (finalvalue[3]>10 or 
finalvalue[3]=l)) or 

((finalvalue[4]=fmalvalue[5]) and (finalvalue[4]>10 or 
finalvalue[4]=l))) 

{jorbetter=l;} 
if(fourkind==l) {rank=3;} 

else if ((straight=l) and (flush=l) and (finalvalue[2]=10) 

and(finalvalue[l]!=9)) {rank=l;} 
else if ((straight=l) and (flush=l)) {rank=2;} 
else if (Mlhouse=l) {rank=4;} 

else if (flush=l) {rank=5;} 
else if (straight=l) {rank=6;} 
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else if (threekind=l) {raiik=7;} 

else if (twopair=l) {rank=8;} 

else if (jorbettei=l) {rank=9;} 

} 



function dealinitiaicardsO 

{ 

_root.coinsbetbox.htniltext=coins; 

if(cardCount>=4) { 

clearlnterval(intervallD); 

payhand(card[0],card[l],card[2],card[3],card[4]); 

winningrank=rank; 

showpaysQ; 

adjusttabie20; 

__root.attachmovie ("reddealdrawon","reddealdrawomd",-H-depth); 
_root["reddealdrawomd"]._x=buttondrawx; 
_root["reddealdrawonid"] ._y=buttondrawy ; 
_root["reddealdrawonid"] .onRelease=fiinction() { 

removemovieclip("reddealdrawonid"); 

double=l; 

playciickQ; 

clearinterval(intervallDM); 
money=^oneyl; 

_root.moneybox.htinltext='<paIign="center">$*+money; 
for(i=0; i<5;++i) { 

var cardid="card"+card[i]+"big"+"id"; 
if Qoot[cardid]._held==0) { 

attachmovie ("wiz","wiz"+i,++depth); 
_root[" wiz"+i] ._x=cardsx+i* 1 50; 
_root["wiz"+i]._y=cardsy; } 

} 

cardCountl=-l; 
done=0; 

intervalIDl=setInterval(drawone, delay); 

} 



_root.attachmovie("redDDon","redDDomd",-H-depth); 

_root["redDDonid"]._x=buttonDDx; 

_root["redDDonid"]._y=buttonDDy; 

reddd=l; 

_root["redDDonid"] .onRelease=function() { 
removemovieclipC'redDDonid"); 
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removemovieclip("reddealdrawonid"); 

reddd=0; 

double=2; 

bets=coins*double 

_root.doubleinfobox.htmltext="<BR> DOUBLED!"; 

_root.coiiisbetbox.htmltext=bets; 

money=money-coins; 

_root.moneybox.htmltext=*<palign="center">$*+money; 

playclickQ; 

for(i=0; i<5;++i){ 

var cardid="card"+card[i]+"big"+"id"; 
if Croot[cardid].^held=0) { 

attachmovie ("wiz";'wiz"+i,-f+depth); 
_root["wiz"+i]._x=cardsx+i* 150; 
_root[" wiz"+i] ._y=cardsy ; } 

} 

cardCoxmtl=-l; 
done=0; 

intervalIDl=setInterval(drawone, delay); 

} 



for(i-0; i<5;++i){ 
removemovieclip ("wiz"+i);} 
return; } 

-i-+cardCount; 
hold[cardcoimt]=0; 

var cardname="card"+card[cardcount]+"big"; 
var cardid=cardname+"id"; 
playcardQ; 

_root.attachMovie(cardname, cardid, -H-depth); 
_root[cardid] ._x=cardsx+(cardcount* 1 50); 
_root[cardid] ._y=cardsy ; 
_root[cardid] ._held=0; 



_root[cardid].onRelease=functionO { 

if(this._name="card"+card[0]+"bigid") {heldcard=0;} 
if (this._name="card"+card[l]+"bigid") {heldcard=l ;} 
if(this.__name="card"+card[2]+"bigid") {heldcard=2;} 
if(this._name="card"+card[3]+"bigid") {heldcard=3;} 
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if(this._name="card"+card[4]+"bigid") {heldcard=4;} 

if (gameover==0) { 
playclickQ; 

heldid="held"+this._name; 
if (_root[this._name]._held=0) { 
_root[this._name] ._held=l ; 
hold[heldcard]=l; 

_root.attachMovie("held", heldid, -H-depth); 
_root[heldid] ._x=_root[this._name] ._x; 
_root[heldid] ._y=_root[this._iiame] ._y; } 

else {removeMovieClip(heldid); 

_root[this._name] ._held=0; 

hold[heldcard]=0;} 

} 

adjusttable20; 

} 

} 

function raisemoneyO 
{ 

if (money=moneyl) {clearinterval(intervallDM); return;} 
money++; 

_root.moneybox.htmltextr='<palign="center">$'+money; 

} 

function drawoneQ 
{ 

■H-cardcountl; 

removemovieclip("redDDonid"); 
reddd=l; 

var cardid="card"+card[cardcount 1 ]+"big"+"id"; 
if Qoot[cardid]._held=l) {cardcountl++;} 
var cardid="card"+card[cardcountl]+"big"+"id"; 
if (_root[cardid]._held=l) {cardcountl-H-;} 
varcardid="card"+card[cardcountl]+"big"+"id"; 
if(_root[cardid]._held=l) {cardcountl-H-;} 
var cardid="card"+card[cardcountl]+"big"+"id"; 
if C.root[cardid]._held=l) {cardcountl-H-;} 

if(cardCountl>=5) { 

clearInterval(intervalID 1 ); 

{ ganieover=l; 

payhand(card[0],card[l],card[2],card[3],card[4]); 
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winningrank=rank; 

showpaysQ; 

if (rank=l) {playbigwinQ;} 
chimes=0; 

if(rank>l) {playwinOQ;} 

if ((rank>l) and (double=2) and (pay[rank]>0)) {chimes=l; 
intervalchime=setinterval(playwin,600);} 
money 1 =money+payout[rank] *coins; 
if (double=2) {money l=moneyl+pay[rank];} 
intervalIDM=setInterval(raisemoney, 25); 
// _root.moneybox.text='<p align="center">$'+money; 

total win=payout[rank] *coins; 
if (double==2) {totalwin=totalwin+pay[rank];} 
_root.winbox.htmltext='<p align="center">$*+totalwin; 
startgameQ; 
retum; 

} 

return;} 

var cardname="card"+card[cardcoiintl]+"big"; 
var cardid=cardname+"id"; 
if C_root[cardid]._held=0) { 

smallcard="card"+card[cardcountl]+"small"; 

discards-H-; 

discardids[discards]=smallcard+"id"; 

//_rootattachmovie(smallcard,smallcard+"id",++depth); 

//_root[smallcard+"id"]._x=125+discards*75; 
//_root[smallcard+"id"] ._y=discardsy ; 

removemovieclip(cardname+"id"); 
card[cardcount 1 ]=card[ 1 0+cardcount 1 ] ; 
varcardlname="card"+card[10+cardcountl]+"big" 
var cardlid=cardlname+"id"; 
playcardO; 

_root.attachmovie(card 1 name,card 1 id,++depth); 
_root[cardlid]._x=cardsx+(cardcoxmtl * 1 50); 
_root[card 1 id] ._y==cardsy ; 
_root[card 1 id] ._held=0; 

} 

} 



function dealCardsQ 
{ 

dealblankcardsQ; 
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cardCoimt=-l; 

intei:valID=setInterval(dealinitialcards, delay); 

function beginQ { 

removemovieclip (redbetlonid); 

removemovieclip (redbetSonid); 

money=money-coins; money l=money; 
_root.moneybox.htmltext=*<palign="center">$'+money; 
winningrank=0; 

showpaysO; 

for(i=0; i<5;++i) { 

var cardname="card"+card[i]+"big"; 

var cardid=cardname+"id"; 

removemovieclip (cardid); 

removemovieclip ("held"+cardid); 

} 

for(i=0; i<6;++i) { 

removemovieclip (discardids[i]);} 

shuffleO; 

discards=0; 

gameover=0; 

_root.paytable2rankl .text=" 
_root.paytable2rank2.text=" 
_root.paytable2rank3 .text=" 
_root.paytable2rank4.text=" 
_root.paytable2rank5.text=" 
_root.paytable2rank6.text=" 
_root.paytable2rank7.text=" "; 
_rootpaytable2rank8 .text=" 
_root.paytable2rank9.text=" "; 

dealcardsQ; 
} 

function startgame () { 

activateredbetlQ; 

activateredbetSQ; 
attachmovie("reddealdrawon","reddealdrawonid",++depth); 
_root["reddealdrawonid"]._x=buttondrawx; 
_root["reddealdrawonid"] ._j=buttondrawy; 
_root["reddealdrawonid"] .onRelease=function() { 
removemovieclip ("reddealdrawonid"); 
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clearinterval(intervallDM); 
money=moneyl; 

_root.moneybox.htmltext=*<palign="center">$*+money; 
double=l; 

_rootwinbox.htmltext=" 

_root.retumbox.text=" 

playclickO; 

beginQ; 

} 
} 

function activateredbetlQ { 

_root.attachmovie C'redbetlon","redbetlonid",-H-depth); 

_root["redbetlonid"]._x=buttonbetlx; 

_root["redbetlonid"]._y=buttonbetly; 

_root["redbetlonid"].onRelease=functionO { 
playclickO; 

_root.winbox.htmltext=" "; 
_root.coinsinbox2.htmltext=" 
coins-H-;double=l; 
if(coins=6) {coins=l;} 

_root.coinsbetbox.htmltext=coins; 
showpaysQ; 

_root.paytable2rankl .htmltext=" "; 
_rootpaytable2rank2.text=" 
_root.paytable2rank3 .text=" 
_rootpaytable2rank4.text=" 
_root.paytable2rank5.text=*' 
_root.paytable2rank6.text=" 
_root.paytable2rank7.text=" " ; 
_root.paytable2rank8.text=" 
_root.paytable2rank9.text=" "; 
_root.retumbox.text=" "; 

} 

} 

fiinction activateredbetSQ { 

_root.attachmovie ("redbet5on","redbet5onid",-H-depth); 
_root["redbet5onid"]._x=buttonbet5x; 
_root["redbet5onid"] ._y=buttonbet5y ; 

_root["redbet5onid"].onRelease=fiinctionO { 
playclickO; 

_rootwinbox.htniltext=" "; 
_root.coinsbetbox.htmltext=5 ; 
_root.coinsinbox2.htmltext=" "; 
coins=5; double==l; 
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showpaysQ; 

_root.paytable2rankl.htmltex1=" 

_root.paytable2rank2.text=" "; 

_root.paytable2rank3.text=" "; 

_root.paytable2rank4.text=" "; 

_root.paytable2rank5.text=" "; 

_root.paytable2rank6.text=" "; 

_root.paytable2rank7.text=" "; 

_root.paytable2rank8.text=" "; 

_root.paytable2rank9.text=" "; 

_root.retumbox.text=" "; 

} 

} 



discardids=[]; hold=[]; 

card=[]; payout=[];ranks=D;light=n; 

p=[]; pay=[]; 

payout[l]=800; payout[2]=50; payout[3]=25; payout[4]=9; 
payout[5]=6; payout[6]=4; payout[7]=3; payout[8]=2; payout[9]=l; 
money=1000; money l=money; 
royalcap=20000; straightflushcap=15000; 
gameret=.99; 

ranks[l]="ROYAL FLUSH"; ranks[2]="STRAIGHT FLUSH"; raiiks[3]="4 OF A 
KIND"; 

ranks[4]="FULL HOUSE"; ranks[5]="FLUSH"; ranks[6]="STRAIGHT"; ranks[7]="3 
OF A KIND"; 

ranks[8]="2 PAIR"; ranks[9]=" JACKS OR BETTER"; 

cardsx=140; cardsy=425; discardsy=550; buttonx=450; buttony=600; 
maxbuttonx=700; paytablex=455; paytabley=120; delay=150; 

buttonbetlx=300; buttonbetly=625; 
buttonbet5x=401; buttonbet5y=625; 

buttondrawx=502; buttondrawy=625; buttonDDx=603; buttonDDy=625; 
coins=l; 

_root.moneybox.htmltextF'<palign="center">$'+money; 

vvinningrank=0; 

showpaysQ; 

dealblankcardsQ; 

attachmovie ("redbetloff' ,"redbetloffid",-H-depth); 
_root["redbetloffid"]._x=buttonbetlx; 
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_root["redbetloffid"]._y=buttonbetly; 

attachmovie("redbet5off',"redbet5offid",++depth); 

_root["redbet5offid"]._x=buttonbet5x; 

_root["redbet5offid"]._y=buttonbet5y; 

attachmovie ("reddealdrawofF',"reddealdrawoffid",++depth); 

_root["reddealdrawoffid"]._x=buttondrawx; 

_root["reddealdrawoffid"]._y=buttondrawy; 

attachmovie ("redDDoff',"redDDoffid",-H-depth); 

_root["redDDoffid"]._x=buttonDDx; 

_root["redDDoffid"]._y=buttonDDy; 



startgameQ; 
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